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display or print out 





ORG 

0B900H 

B900 

AF 

START: 

XOR 

A 

B901 

324CE6 


LD 

(0E64CH),A 

B904 

215EB9 

9 

LD 

HL,PROMPT 

B907 

CD55B9 


CALL 

DSPMSG 

B90A 

CD8335 


CALL 

3583H 

B90D 

FE03 


CP 

03H 

B90F 

C8 


RET 

Z 

B910 

F5 

9 

PUSH 

AF 

B911 

CD0D3E 


CALL 

3E0DH 

B914 

3E0D 


LD 

A,0DH 

B916 

CD0D3E 


CALL 

3E0DH 

B919 

3E0A 


LD 

A ,0AH 

B91B 

CD0D3E 


CALL 

3E0DH 

B91E 

FI 


POP 

AF 

B91F 

FE63 

9 

CP 

' c' 

B921 

2829 


JR 

Z,DSPLAY 

B923 

FE43 


CP 

'C' 

B925 

2825 


JR 

Z,DSPLAY 

B927 

FE64 


CP 

'd' 

B929 

2821 


JR 

Z,DSPLAY 

B92B 

FE44 


CP 

'D' 

B92D 

2810 


JR 

Z,DSPLAY 

B92F 

FE6C 

9 

CP 

' 1 ' 

B931 

280E 


JR 

Z,LPRINT 

B933 

FE4C 


CP 

'L' 

B935 

280A 


JR 

Z,LPRINT 

B937 

FE70 


CP 

' p' 

B939 

2806 


JR 

Z,LPRINT 

B93B 

FE50 


CP 

'P' 

.B93D 

2802 


JR 

Z,LPRINT 

B93F 

18BF 


JR 

START 

B941 

2175B9 

LPRINT: 

:LD 

HL,CARE 

B944 

CD55B9 


CALL 

DSPMSG 

B947 

3E01 


LD 

A, 1 


; select crt for output 

» input a character from keyboard 
; stop key, return to basic 

; echo-back and 1ine feed on crt 
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B949 

324CE6 

LD 

(0E64CH),A 

; select printer for output 



; main sect 

on 


B94C 

3E20 

DSPLAY:LD 

A,20H 


B94E 

DF 

LOOP: RST 

18H 

;*output a character 

B94F 

3C 

INC 

A 


B950 

FE00 

CP 

0FFH+1 


B952 

20FA 

JR 

NZ.L00P 


B954 

C9 

RET 


; return to basic 



» 

; display message subroutine 


B955 

7E 

DSPMSG:LD 

A,(HL) 


B956 

A7 

AND 

A 


B957 

C8 

RET 

Z 


B958 

CD0D3E 

CALL 

3E0DH 

; display a character 

B95B 

23 

INC 

HL 


B95C 

18F7 

JR 

DSPMSG 




; message area 



B95E 63727420 PROMPT:DEFB 'crt or line-printer ? ',0 

B962 6F72206C 

B966 696E652D 

B96A 7072696E 

B96E 74657220 

B972 3F2000 

B975 6C696E65 CARE: DEFB '1ine-printer active >!',0AH,0DH,0 

B979 20707269 

B97D 6E746572 

B981 20616374 

B985 69766520 

B989 21210A0D 

B98D 00 


a=&hb900:ca11 a 

crt or 1ine-printer ? c 

i ‘ #$*/.&'()#+,-. /0123456789: ;< = >?@ABCDEFGHIJKLMNOPQRSTUVUXYZCVII'abcdef ghi jk 1 mno 
pqrstuvuxyzC ! I I 11 H I 1 H I- — I In LJ ry w o r j, 7 TO iTlJf 

9f V? htIX7yAt7 / \^7SAXtri37'J)tU09> , ‘ ° = NN 
0k 

cal 1 a 

crt or 1ine-printer ? 1 
line-printer active U 
Ok 
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0 0 2 0 H : . s<7 4' 1 


0 0 2 0 H 

• 'ZTcnttMb'fits.i. 

A, F 

U^X^HLfclWftSitfcl 6 fc'-y Mtf$slOS?i&£, WyXj' 

DEUfettSftfc 16fy h^-|SlL<7)|Si5:^lt$5cL, ^^-fe'n • 77/(Z) 
-r 'J • 7?7 (CY) (c XilX i> b* 0 it. 

■b'D -77/ (Z) £ 1 lz-fe y h L, l -' i; ^'o'tC(i if u • 7 7 ?’ 

(CY) £ 1 (c-fe.y F Lit. 


7 K UX 
« iE 

1 m 
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B900 110000 
B903 217F00 

B906 7A 
B907 CD23B9 
B90A 7B 
B90B CD23B9 

B90E 3E3A 
B910 CD0D3E 

B913 1A 
B914 CD23B9 

B917 3E20 
B919 CD0D3E 

•B91C 13 

B91D CD2000 
B920 30E4 

B922 C9 


B923 47 
B924 OF 
B925 OF 
B926 OF 
B927 OF 
B928 CD2CB9 
B92B 78 

B92C E60F 
B92E FEOA 
B930 3802 
B932 C607 

B934 C630 
B936 CD0D3E 
B939 C9 


a=&hb900 Seal1 
0000:F3 0001s 
OOOAsBE OOOB: 
0014 sDO 0015: 
001E:59 001F: 
0028:3A 0029s 
0032sEA 0033s 
003C:00 003D: 
0046:08 0047: 
0050:23 0051: 
005A:71 005B: 
0064:21 0065 
006E:C2 006F: 
0078:21 0079 
Ok 


; - dump memory - 


ORG 

0B900H 



LD 

DE *0000H 

; start address for 

dump memory 

LD 

HL,007FH 

; end address for 

dump memory 

LD 

A,D 



CALL 

DSPACC 



LD 

A ,E 



CALL 

DSPACC 



LD 

A/ 



CALL 

3E0DH 



LD 

A,(DE) 



CALL 

DSPACC 



LD 

A,' ' 



CALL 

3E0DH 



INC 

DE 



CALL 

0020H 

;*compare register 

hl-de 

JR 

NC,DUMP 



RET 


; return to basic 



; display accumulator hexa decimal subroutine 
; destroys S register a*f»b 

DSPACC:LD B,A 

RRCA 
RRCA 
RRCA 
RRCA 

CALL HALF 
LD A,B 

HALF: AND OFH 
CP 10 
JR C,NUMBER 
ADD A,7 

NUMBER:ADD A.30H 

CALL 3E0DH ? display a character 

RET 


31 0002:AO 0003:E1 0004:C3 0005:F7 0006:77 0007:00 0008:7E 0009:E3 
23 000C:E3 000D:C2 000E:93 000F:03 0010:23 0011:7E 0012-.FE 0013:3A 
C3 0016:15 0017:0A 0018:F5 0019-.CD 001A:42 OOlBsED 001C:C3 001D:25 
00 0020:7C 0021:92 0022:C0 0023:7D 0024:93 0025:C9 0026:00 0027:00 
44 002A:EC 002B:B7 002C:C2 002D:83 002E:20 002F:C9 0030:3A 0031:BD 
FE 0034:08 0035:C3 0036:27 0037:15 0038:C3 0039:69 003A:E6 003B:00 
00 003E:00 003F:00 0040:A0 0041:21 0042:FD 0043:21 0044:7E 0045:A7 
FE 0048:20 0049:C9 004A:21 004B:FF 004C:FF 004D:22 004E:56 004F:E6 
C9 0052:22 0053:41 0054:EC 0055:C1 0056:C1 0057:4F 0058:78 0059:D3 
79 005C: Cl 005D:C3 005E:E9 005F:11 0060:CD 0061:BD 0062:05 0063:CD 
4F 0066:C3 0067 :D6 0068:4E 0069:CD 006A:9F 006B:ED 006C:F3 006D-.3A 
:E6 0070:C9 0071:00 0072:3A 0073:B9 0074:E6 0075:A7 0076:37 0077:C4 
:40 007A:C3 007B:6A 007C:6F 007D:3A 007E:E9 007F:E9 
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0 0 2 8 H : F ACCCAft-^-SrlliKS, 


0 0 2 8 H 

7D-T<>^'7+iAI/-? (FACC) £>#-§•£P'C*. 
A, F 

7o-f-(>/-T3faAU-7 (FACC) 

^ fz life? $n^£7 A - Ai^ — ^ iz.-^- 

i>t'D£ t. . 

7o-r-f >r • (FACC) 7 

6iMi<7)ll{£l±;*;<7)i: 7 ') ft. 

F A C C a- i A w ? fc F F H £-$-£ i t. 

F ACC co^Mch* 0 <7)t§frT A- ^ A w - 9 ic 0 0 H £4;i41\ 

F A C Cc^ifc^OiJ^T A-i J^V — 7lz 0 1 
tztiL, 7V-TJ >? ■ T*zl 1 *v -9 (FACC) 

7n-f<>/'7if i Al^-)' (FACC) cofddS'M (• (E C 4 4 H#it 
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■*)■>■/Jl' 


. - check sign of floating number - 




0RG 

0B900H 


B900 

CD2800 

CALL 

0028H 

;*check sign of floating number 

B903 

A7 

AND 

A 


B904 

C20CB9 

JP 

NZ,NEXT1 


B907 

2120B9 

LD 

HL,SIGNO 

5 floating number of zero 

B90A 

180B 

JR 

DSPMSG 


B90C 

F214B9 

NEXT1: JP 

P.NEXT2 


B90F 

213BB9 

LD 

HL,SIGNN 

; floating negative number 

B912 

1803 

JR 

DSPMSG 


B914 

2157B9 

NEXT2: LD 

HL,SIGNP 

; floating positive number 



; display message section 


B917 

7E 

DSPMSG:LD 

A,(HL) 


B918 

A7 

AND 

A 


B919 

C8 

RET 

Z 

; return to basic 

B91A 

CD0D3E 

CALL 

3E0DH 

; display a character 

B91D 

23 

INC 

HL 


B91E 

18F7 

JR 

DSPMSG 



; message area 

B920 666C6F61 SIGNO: DEFB 'floating number of zero M',0 

B924 74696E67 

B928 206E756D 

B92C 62657220 

B930 6F66207A 

B934 65726F20 

B938 212100 

B93B 666C6F61 SIGNN: DEFB 'floating negative number !!',0 

B93F 74696E67 

B943 2Q6E6567 

B947 61746976 

B94B 65206E75 

B94F 6D626572 

B953 20212100 

B957 666C6F61 SIGNP: DEFB 'floating positive number !!',0 

B95B 74696E67 

B95F 20706F73 

B963 69746976 

B967 65206E75 

B96B 6D626572 

B96F 20212100 


def usr=&hb900:a#=usr(csng(3000)) 
floating positive number !! 

Ok 

def usr=&hb900:a#=usr(csng(0 ) ) 
floating number of zero !! 

Ok 

def usr=&hb900:a#=usr(csng(~.000001 ) ) 
floating negative number !! 

Ok 

def usr=&hb900:a#=usr(cdb1(300000000000000000000000000 )) 
floating positive number 1 ! 

Ok 

def usr=&hb900:a#=usr(cdb1(.000000000000000000000000000000000000001)) 
floating number of zero 111 
Ok 
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0 0 3 0 H : 


T K I'T* 


m m 




m m 


jLjUU — fCO 

7/(Z), 

7/(CY) 

S 

z 

P/V 
C Y 




B900 CD3000 

B903 F20BB9 
B906 212BB9 
B909 1817 

B90B 2005 
B90D 2136B9 
B910 1810 

B912 EA1AB9 
B915 2140B9 
B918 1808 

B91A 3805 
B91C 215BB9 
B91F 1801 

B921 C9 


B922 7E 
B923 A7 
B924 C8 
B925 CD0D3E 
B928 23 
B929 18F7 


B92B 696E7465 
B92F 67657220 
B933 212100 
B936 73747269 


0 0 3 0 H 

• 7 + iAU-^ (FACC) 

A, F 

E >?• j >h • T* 

v 9 LT, 1M >-77/(S) , -fefu • 7 
/N °'J T J /*-'<—7V- • '7 7?" (P/V) , IJ *7 

7 h £1\ 

- ( 2 ) h Li-r. 

*- ( 3 ) T # -fe 7 F Li t. 

«“ Tvn°Ut4 

«“ tMJ-fe-yhLit. 


5 - check type of face - 


ORG 0B900H 

CALL 0030H 

JP P.N0T2 
LD HL.TYPE2 
JR DSPMSG 

N0T2: JR NZ,N0T3 

LD HL,TYPE3 
JR DSPMSG 

N0T3: JP PE,N0T4 

LD HL.TYPE4 
JR DSPMSG 

N0T4: JR C,ERROR 

LD HL.TYPE8 
JR DSPMSG 

ERROR: RET 

; display message section 

DSPMSG:LD A,< HL) 

AND A 
RET Z 
CALL 3E0DH 
INC HL 
JR DSPMSG 

; message area 

TYPE2: DEFB 'integer !!',0 


TYPE3: DEFB 'string !!' ,0 


;*check type of face 
; integer 

J string 

; single precision number 

; double precision number 
* error, return to basic 

; return to basic 
; display a character 
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I 


B93A 

6E672021 




* 

B93E 

2100 





B940 

73696E67 

TYPE4: 

DEFB 

'single 

precision number 

B944 

6C652070 





B948 

72656369 





B94C 

73696F6E 





B950 

206E756D 





B954 

62657220 





B958 

212100 





B95B 

646F7562 

TYPE8: 

DEFB 

'double 

precision number 

B95F 

6C652070 





B963 

72656369 





B967 

73696F6E 





B96B 

206E756D 





B96F 

62657220 





B973 

212100 






def usr=&hb900:a/£=usr( aZ ) 
integer !! 

Ok 

def usr=&hb900:a$=usr(a$) 
string 1 ! 

Ok 

def usr=&hb900:a!=usr(a!) 
single precision number !! 
Ok 

def usr=&hb900:a#=usr ( a#) 
double precision number !! 
Ok 
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0 3 B 3 H : —£fcts 2 j lTOS£MP£^t 


03B3H 

X 7 - £ aj * L T O S izfflw £ f?T. 


l^yX;E<0X7- • => — KlcfrtJei-.&xy — %&-}] LT, Nss- 
B A S I CwftlJWTKA 1 ) i1\ 

I'xXj’EWx?- - 3-K(cW)£1-Sx7-* J #ftL4rv'*^cJi, 

“Unprintable error” (UE Error) X7 —$rtb* Lit". 

4*. i7-'3-Fi<0 0H (-fern) vm&lzlt, ISK;v—rurA 1 )iA/LT 
Li-) 


7 Kux 


* si 




m vt 


■y-'s-fiV 


output error of n88~basic - 




ORG 

0B900H 


B900 

2137B9 

LD 

HL,PROMPT 

; error code ? 

B903 

CD2EB9 

CALL 

DSPMSG 


B906 

1E00 

LD 

E ,0 

; initialize input error code 

B908 

3E30 

LD 

A, 'O' 

; initialize input character 

B90A 

F5 

InLOOPjPUSH 

AF 


B90B 

7B 

LD 

A,E 


B90C 

87 

ADD 

A,A 


B90D 

87 

ADD 

A,A 


B90E 

83 

ADD 

A, E 


B90F 

87 

ADD 

A,A 

; e <— e # 10 + input number 

B910 

5F 

LD 

E,A 

B911 

FI 

POP 

AF 


B912 

D630 

SUB 

'0' 


B914 

83 

ADD 

A, E 


B915 

5F 

LD 

E, A 


B916 

CD8335 

CALL 

3583H 

; input a character from keyboard 

B919 

CD0D3E 

CALL 

3E0DH 

; echo-back a character 

B91C 

FE03 

CP 

03H 


B91E 

C8 

RET 

Z 

; stop key, return to basic 

B91F 

FEOD 

CP 

ODH 


B921 

20E7 

JR 

NZ,INLOOP 


B923 

3E0A 

LD 

A,0AH 

* line feed code in accumulator 

B925 

CD0D3E 

CALL 

3E0DH 

; display a character 

B928 

1C 

INC 

E 


B929 

ID 

DEC 

E 

; error code zero, return to basic 

B92A 

C8 

RET 

Z 

B92B 

C3B303 

JP 

03B3H 

;*output error and jump to basic 



5 display message subroutine 


B92E 

7E 

DSPMSG:LD 

A,(HL) 
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B92F A? 
B930 C8 


AND A 
RET Z 


B931 CD0D3E 
B934 23 
B935 18F7 


CALL 3E0DH 
INC HL 
JR DSPMSG 


display a character 


message area 


B937 6572726F PROMPT:DEFB 'error code ? ',0 
B93B 7220636F 
B93F 6465203F 
B943 2000 


a=&hb900:cal1 a 
error code ? 0 
Ok 

cal 1 a 

error code ? 1 
NEXT without FOR 
Ok 

cal 1 a 

error code ? 2 
Syntax error 
Ok 

cal 1 a 

error code ? 3 
RETURN without GOSUB 
Ok 

cal 1 a 

error code ? 10 
Duplicate Definition 
0k 

cal 1 a 

error code ? 11 
Division by zero 
0k 

cal 1 a 

error code ? 40 
Unprintable error 
Ok 

cal 1 a 

error code ? 41 
Unprintable error 
0k 
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0 5BDH : 

0 5 B DH 

>) >? • *°-r vy ^r-fe-y h t5. 

A, F, B, C, D, E, H, L 

E658H — E659H #jt!i iz felrt £ tlT ^' & 7° n X' 
*)5fcIB7Kux (SMfliO 0 0 1 H) 

/7A • xu 

(tfcb^fibfrX) 1 ; > X • *“ 4 > Xtc-ft ^Cff^7fell2 

Htcirij -cutti-r. 

&'*7u x X X H LI:7 ‘d /7A7)x> K • T Ku x#\ 
Ciii/yX^HL GOffi#* b 1 £j$ t (> WAo £ 1~. 



{ search text and set 1 ink pointer- 




ORG 

0B900H 

B900 

CDBD05 

CALL 

05BDH 

B903 

210FB9 

LD 

HL,MESAG( 

B906 

7E 

DSPMSGsLD 

A,< HL) 

B907 

A7 

AND 

A 

B908 

C8 

RET 

Z 

B909 

CD0D3E 

CALL 

3E0DH 

B90C 

23 

INC 

HL 

B90D 

18F7 

JR 

DSPMSG 



; massage area 

B90F 

6E38382D 

MESAGEjDEFB 

'n88-bas] 

B913 

62617369 



B917 

63207465 



B91B 

7874206C 



B91F 

696E6B65 



B923 

64202121 



B927 

00 




;*search text and set 


; display a character 


text 1 inked ! !',0 


a=&hb900:cal1 a 
n88-basic text linked !! 
Ok 


y A • X I) r 
i It, 7 "o 
K w X £ M,o 
'•M h A f 0 0 

1/yX^DE 


1 ink pointer 
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I 


0605H ; -r + x h #'b -7 £** L ftt". 

0 6 0 5 H 

x*X Y 7&£*'* LtiJ-f. 

A, F, B, C, H, L 

N 88 — BAS I Cwr |- •ii)T4 l A'fet 7 >* X;/ D E T'1b^= 

> • -f's^cnv -f 7 ££*<LtB1'*:s'>x>-tf7';t-—-f 7T~t. 
u i^x ? B cts ix/u y x ? h uz<y j > Y^<r>r K7 x (soooh~83F 

FH) %<r>7 -i 7 • -F7'<£-g-t?'/n 7 ? -( 7 Y^^t>ti 

-fe'n • 7 x r ( Z ) £ A- -v U • 7 7 X' (C Y ) ± -5 tifct-jjH' 

3 ii') t. 

1 ) -t'o • 7 7 7 ( Z ) , A 7 'J • 7 7 r (C Y ) *(c, -fe 7 h S *Lfc» 

"□•, lit/iE L ^:7 -f 7 • 'F 7- , '*A < ff 1 'E't' •2>^$T7r'Li”F. 7 x X X B C 1- 
(±tB^ 7^> X)7feM ( >) 7 X • -+°-f 7 X i #tr) 7 K 7 x fi s , 7 x X 
^HLtciitgleLfc^X'f 7 X»ftal 7 Yu x*‘#x 
2) -fern • 77/ (Z) rtMrx I-Six, A-A- 1 ) • 77 / (CY) *<«J-te*y 
h 2tifc*gr&£li, IsS Ltzy 'i 7 • +7A*<f^x 1 +tz#:£-£T, 

frfcAO, Jg^7^f 7 • +7A* i ') V>-h7/%'C7)7 4 7* f l fflj# 

i/^X/BCJjit/w^X/HLCIi, Nss 
— BAS I C cot A- X h • 17 K 2'<4 b <x> 0 0 H A f fgirt£ 

K7Xrt { #x btlti'. 

3 ) -fern - 77/ (Z) , A-7 i J- 77?'(CY) 7t(C >J -t 7 1 § 

-g'lcl±, JhSeL fz 7 A 7 • A - x h 

uy-x/BCClii^lfct^'J: O^v^D^xA 7 X> 
Kvxi ! , vj7x^HUc(i-t^<07-f ><r>%MT Kvxi' 

#x kHif. 

1 h/7^1 

! - search the basic text for the line 

ORG 0B900H 

LD HL,PROMPT 5 line number ? 

CALL DSPMSG 

LD HL,0 
LD A.'O' 

INLOOP:PUSH HL 


B900 2162B9 
B903 CD59B9 

B906 210000 
B909 3E30 

B90B E5 


r ku* 

« K 

7->X? 

m k 
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B90C 

D1 


POP 

DE 


B90D 

29 


ADD 

HL,HL 


B90E 

29 


ADD 

HL ,HL 


B90F 

19 


ADD 

HL.DE 


B910 

29 


ADD 

HL ,HL 


B911 

0630 


SUB 

'0' 


B913 

5F 


LD 

E, A 


B914 

1600 


LD 

D,0 


B916 

19 


ADD 

HL.DE 


B917 

CD8335 


CALL 

3583H 

; input a character from keyboard 

B91A 

CD0D3E 


CALL 

3E0DH 

; echo-back a character 

B91D 

FEOD 


CP 

ODH 


B91F 

20EA 


JR 

NZ,INLOOP 


B921 

EB 


EX 

DE.HL 

; set line number in register de 

B922 

CD0506 


CALL 

0605H 

!*search the text for the line 

B925 

300F 


JR 

NC,ERROR 

; reset cy, not found 

B927 

218DB9 


LD 

HL,FOUND 

{ line from 

B92A 

CD59B9 


CALL 

DSPMSG 


B92D 

CD3DB9 


CALL 

DSPBC 

; display address 

B930 

3E48 


LD 

A, 'H' 


B932 

CD0D3E 


CALL 

3E0DH 

; display a character 

B935 

C9 


RET 


; return to basic 

B936 

2171B9 

ERROR: LD 

HL.NFOUND 

; 1ine number not found !! 

B939 

CD59B9 


CALL 

DSPMSG 


B93C 

C9 


RET 


; return to basic 




display register be hexa 

decimal subroutine 




destroys : reguster a 

,f ,b 

B93D 

78 

[ 

DSPBC: LD 

A.B 


B93E 

CD42B9 


CALL 

DSPACC 


B941 

79 


LD 

A, C 


B942 

47 

DSPACC:LD 

B, A 


B943 

OF 


RRCA 



B944 

OF 


RRCA 



B945 

OF 


RRCA 



B946 

OF 


RRCA 



B947 

CD4BB9 


CALL 

HALF 


B94A 

78 


LD 

A,B 


B94B 

E60F 

HALF: AND 

OFH 


B94D 

FEOA 


CP 

10 


B94F 

3802 


JR 

C,NUMBER 


B951 

C607 


ADD 

A,7 


B953 

C630 

NUMBER:ADD 

A, 30H 


B955 

CDGD3E 


CALL 

3E0DH 

; display a character 

B958 

C9 


RET 






display message subroutii 

r>e 




destroys : register 

a , f , h, 1 

B959 

7E 

C 

DSPMSG:LD 

A,(HL) 


B95A 

A7 


AND 

A 


B95B 

C8 


RET 

Z 


B95C 

CD0D3E 


CALL 

3E0DH 

; display a character 

B95F 

23 


INC 

HL 


B960 

18F7 


JR 

DSPMSG 





message area 



B962 6C696E65 PROMPTiDEFB 'line number ? ',0 
B966 206E756D 
B96A 62657220 
B96E 3F2000 

B971 0D0A6C69 NFOUND:DEFB 0DH,0AH,'1ine number not found 1 !',07H,0 
B975 6E65206E 
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B979 756D6265 
B97D 72206E6F 
B981 7420666F 
B985 756E6420 
B989 21210700 

B98D 0D0A6C69 FOUND: DEFB ODH.OAH,' 
B991 6E652066 
B995 726F6D20 
B999 00 


1 ist 

100 PRINT ’line number 100’ 
110 PRINT ’line number 110’ 
120 PRINT ’line number 120’ 
130 PRINT ’line number 130’ 
140 PRINT ’line number 140’ 
150 PRINT ’line number 150’ 
Ok 

a=&hb900:cal1 a 

1ine number 9 10 

1ine number not found 1 ! 

Ok 

cal 1 a 

1ine number ? 100 
1ine from 8001H 
Ok 

cal 1 a 

1ine number ? 110 
1ine from 8019H 
Ok 

call a 

1ine number ? 105 
1ine number not found !! 

Ok 

cal 1 a 

1ine number ? 150 
1ine from 8079H 
0k 

cal 1 a 

1ine number ? 60000 
line number not found !! 

0k 

mon 


h3d8000,80ff 


8000 

00 

19 

00 

64 

00 

91 

20 

22 

6C 

69 

8010 

62 

65 

72 

20 

31 

30 

30 

22 

00 

31 

8020 

6C 

69 

6E 

65 

20 

6E 

75 

oD 

62 

65 

8030 

00 

49 

00 

79 

00 

91 

20 

22 

6C 

69 

8040 

62 

65 

72 

20 

31 

32 

30 

22 

00 

61 

8050 

6C 

69 

6E 

65 

20 

6E 

75 

60 

62 

65 

8060 

00 

79 

00 

8C 

00 

91 

20 

22 

6C 

69 

8070 

62 

65 

72 

20 

31 

34 

30 

22 

00 

91 

8080 

6C 

69 

oE 

65 

20 

6E 

75 

6D 

62 

65 

8090 

00 

00 

00 

64 

28 

FF 

97 

28 

58 

29 

80A0 

00 

20 

20 

20 

20 

20 

83 

00 

B3 

00 

80B0 

20 

9B 

00 

BA 

00 

C6 

00 

20 

83 

00 

80C0 

20 

oc 

80 

00 

F2 

50 

20 

DD 

20 

4 B 

8000 *F3 

FF 

96 

28 

50 

F4 

OC 

80 

00 

29 

80E0 

00 

F6 

00 

0B 

00 

20 

20 

20 

4B 

57 

80F0 

FF 

96 

28 

50 

29 

00 

OF 

01 

OC 

00 


hlTb 

0k 


6E 

75 

6D 

d 

T 

"line 

num 

91 

20 

22 

ber 

100 

1 n 

T 

31 

30 

22 

1 ine 

number 

110’ 

6E 

75 

6D 

I X 

T 

1 ine 

num 

91 

20 

22 

ber 

120 

a — 

i T 

33 

30 

22 

1 ine 

number 

130’ 

6E 

75 

6D 

y 1 

T 

1 ine 

num 

91 

20 

22 

ber 

140 

’ *r 1 

T 

35 

30 

22 

1 ine 

number 

150’ 

A 8 

00 

B4 

d( 

l< X)); 

< I 

20 

20 

20 



, 0 t 


20 

20 

8B 

J D 

7 

m 

I 1 

4B 

57 

24 

_ 


> KU$nKU$ 

0E 

0E 

00 

H l< 

PB 

_ )il 


57 

24 

F3 

* 


KU$PKU$B 

41 

44 

44 

l(P 

> 


ADD 


1 ine from 

6E 65 20 

00 6E 00 

72 20 31 

6E 65 20 

00 82 00 

72 20 31 

6E 65 20 

00 96 00 

72 20 31 

29 3B 00 

BE 00 20 

00 00 B4 

57 24 FI 

3A 89 20 

24 FI 4B 

20 20 20 
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1 d e 6 H : & i . 

1 DE 6 H 

4 7 . 

A, F, B, C, D, E, H, L 

^ v ? B c D E izlfcMiZ titzl£ffilgm<?>mWc£®.$i&,%Lt L, 7d 

7D-7 -f >7 • T^aAV-^ICi^^Lti if ') £-*-. 


r k ux 


# fii 




8? SS4 


•fr > x’Vp 


subtraction for single precision - 




ORG 

0B900H 

B900 

215CB9 

START: LD 

HL.PRMPT1 

B903 

CD53B9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD41B9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

CD1422 

CALL 

2214H 

B914 

CDE820 

CALL 

20E8H 

B917 

C5 

PUSH 

BC 

B918 

D5 

PUSH 

DE 

B919 

216AB9 

LD 

HL.PRMPT2 

B91C 

CD53B9 

CALL 

DSPMSG 

B91F 

CD925F 

CALL 

5F92H 

B922 

23 

INC 

HL 

B923 

CD41B9 

CALL 

CLRFAC 

B926 

CDC826 

CALL 

26C8H 

B929 

CD1422 

CALL 

2214H 

B92C 

01 

POP 

DE 

B92D 

Cl 

POP 

BC 

B92E 

CDE61D 

CALL 

1DE6H 

B931 

CDD028 

CALL 

28D0H 

B934 

E5 

PUSH 

HL 

B935 

2175B9 

LD 

HL,ANSWER 

B938 

CD53B9 

CALL 

DSPMSG 

B93B 

El 

POP 

HL 

B93C 

CD53B9 

CALL 

DSPMSG 

B93F 

18BF 

JR 

START 


{ screen editor 
; stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
* convert into single precision 
; move from face to register bede 


; screen editor 

; clear floating point accumulator 
; convert into binary code 
; convert into single precision 


; subtract CfaccD from Creg-bcdeD 
• convert into character code 


; display result 


B951 


clear floating point accumulator subroutine 


E5 

CLRFAC:PUSH 

HL 

210000 

LD 

HL, 0 

223DEC 

LD 

(0EC3DH),HL 

223FEC 

LD 

(0EC3FH),HL 

2241EC 

LD 

< 0EC41H),HL 

2243EC 

LD 

(0EC43H),HL 

El 

POP 

HL 

C9 

RET 



B953 7E 


J display message subroutine 
DSPMSG:LD A,(HL) 
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B954 A7 
B955 C8 


AND A 
RET Z 


B956 CD0D3E 
B959 23 
B95A 18F7 


CALL 3E0DH 
INC HL 
JR DSPMSG 


display a character 


massage area 


B95C 0D0A0A20 PRMPT1:DEFB ODH.OAH.OAH/ x ? ',0 
B960 20202078 
B964 2020203F 
B968 2000 

B96A 20202020 PRMPT2:DEFB ' y ? '.0 
B96E 79202020 
B972 3F2000 

B975 78202D20 ANSWER:DEFB x - y --> ',0 
B979 79202D2D 
B97D 3E2000 


a=&hb900:cal1 a 


x 9 20 

y ? 30 

x - y —> -10 

X ? 1000000 

/ y 7 1 

x - y —> 999999 

x 9 12345678901234567890 

y 9 0 

x - y —> 1.23457E+19 

x ? 0.5 

y 9 0.6 

x - y --> -.1 


7 


Ok 
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1 D E A H : n. 



1 DEAH 

A, F, B, C, D, E, H, L 


T*x.A.u-?izfaM$titz<£mi£mm$kZl]nz., 7n 

if 9 St. 




addition for single precision - 





ORG 

0B900H 

B900 

215CB9 

START: 

LD 

HL,PRMPT1 

B903 

CD53B9 


CALL 

DSPMSG 

B906 

CD925F 


CALL 

5F92H 

B909 

D8 


RET 

C 

B90A 

23 


INC 

HL 

B90B 

CD41B9 


CALL 

CLRFAC 

B90E 

CDC826 


CALL 

26C8H 

B911 

CD1422 


CALL 

2214H 

B914 

CDE820 


CALL 

20E8H 

B917 

C5 


PUSH 

BC 

B918 

D5 


PUSH 

DE 

B919 

216AB9 


LD 

HL,PRMPT2 

B91C 

CD53B9 


CALL 

DSPMSG 

B91F 

CD925F 


CALL 

5F92H 

B922 

23 


INC 

HL 

B923 

CD41B9 


CALL 

CLRFAC 

B926 

CDC826 


CALL 

26C8H 

B929 

CD1422 


CALL 

2214H 

B92C 

D1 


POP 

DE 

B92D 

Cl 


POP 

BC 

B92E 

CDEA1D 


CALL 

1DEAH 

B931 

CDD028 


CALL 

28D0H 

B934 

E5 


PUSH 

HL 

B935 

2175B9 


LD 

HL,ANSUER 

B938 

CD53B9 


CALL 

DSPMSG 

B93B 

El 


POP 

HL 

B93C 

CD53B9 


CALL 

DSPMSG 

B93F 

18BF 


JR 

START 



; clear floating point , 

B941 

E5 

CLRFAC! 

:PUSH 

HL 

B942 

210000 


LD 

HL,0 

B945 

223DEC 


LD 

(0EC3DH),HL 

B948 

223FEC 


LD 

(0EC3FH),HL 

B94B 

2241EC 


LD 

(0EC41H),HL 

B94E 

2243EC 


LD 

C0EC43H),HL 

B951 

El 


POP 

HL 

B952 

C9 


RET 



screen editor 

stop key, return to basic 

clear floating point accumulator 
convert into binary code 
convert into single precision 
move from face to register bede 


screen editor 

clear floating point accumulator 
convert into binary code 
convert into single precision 


add Cregister bedell and CfaccD 
convert into character code 


display result 


display message subroutine 
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B953 7E 
B954 A7 
B955 C8 


DSPMSG:LD A,(HL) 


AND A 
RET Z 


B956 CD0D3E 
B959 23 
B95A 18F7 


CALL 3E0DH 
INC HL 


JR DSPMSG 



massage ar ea 


B95C 0D0A0A2U PRMPT1:DEFB ODH,OAH,OAH,' x ? ' ,0 
B960 20202078 
B964 2020203F 
B968 2000 

B96A 20202020 PRMPT2:DEFB ' y ? ',0 
B96E 79202020 
B972 3F2000 

B975 78202B20 ANSWER:DEFB 'x + y —> ',0 
B979 79202D2D 
B97D 3E2000 


a=&hb900:ca11 a 


x ? 0.123 

y ? 0.007 

x + y —> .13 

x ? 20 

y ? -50 

x + y —> -30 

x ? 123.456 

y 9 0.0000001 

x + y —> 123.456 

x ? abc 

y ? def 

x + y — > 0 

x ? 

Ok 
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1 F 1 0 H : 


1 F 1 0 H 

A, F, B, C, D, E, H, L 

yu-f i (FACC) 

smmc7)g«fe*t3& (e z&t Lfcftfc) £, Ht < vo-r-f > ?' • TA-^aw 

-9 (FACC) (cl&WL-Cfcf •) ii-. 



•9->7“;u 


log function for single precision - 





ORG 

0B900H 


B900 

214DB9 

START: 

LD 

HL.PROMPT 


B903 

CD44B9 


CALL 

DSPMSG 


B906 

CD925F 

% 

CALL 

5F92H 

; screen editor 

B909 

D8 


RET 

C 

; stop key, return to basic 

B90A 

23 


INC 

HL 


B90B 

E5 


PUSH 

HL 


B90C 

CD32B9 


CALL 

CLRFAC 

; clear floating point accumulator 

B90F 

CDC826 


CALL 

26C8H 

; concert into binary code 

B912 

CD1422 


CALL 

2214H 

; concert into single precision 

B915 

CD101F 


CALL 

1F10H 

}*log function 

B918 

CDD028 


CALL 

28D0H 

{ concert into character code 

B91B 

EB 


EX 

DE,HL 

; top address of result in reg-de 

B91C 

216AB9 

* 

LD 

HL,ANSI 


B91F 

CD44B9 


CALL 

DSPMSG 


B922 

El 

9 

POP 

HL 

; top address of a input number 

B923 

CD44B9 


CALL 

DSPMSG^ 

J display a input number again 

B926 

2171B9 


LD 

HL,ANS2 


B929 

CD44B9 


CALL 

DSPMSG 


B92C 

EB 


EX 

DE, HL 

; top address of result in reg-hl 

B92D 

CD44B9 


CALL 

DSPMSG 

; display result 

B930 

18CE 


JR 

START 




; clear floating point accumulator subroutine 

B932 

E5 

CLRFAC! 

[PUSH 

HL 


B933 

210000 


LD 

HL,0 


B936 

223DEC 


LD 

(0EC3DH),HL 


B939 

223FEC 


LD 

(0EC3FH),HL 


B93C 

2241EC 


LD 

(0EC41H),HL 


B93F 

2243EC 


LD 

(0EC43H),HL 


B942 

El 


POP 

HL 


B943 

C9 


RET 





t 

; display message subroutine 


B944 

7E 

DSPMSG! 

: LD 

A,(HL) 


B945 

A7 


AND 

A 


B946 

C8 


RET 

Z 


B947 

CD0D3E 


CALL 

3E0DH 

; display a character 

B94A 

23 


INC 

HL 
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B94B 18F7 


JR DSPMSG 


; massage area 

B94D 0D0A7369 PROMPT:DEFB ODH,OAH,'single precision number ? ',0 

B951 6E676C65 

B955 20707265 

B959 63697369 

B95D 6F6E206E 

B961 756D6265 

B965 72203F20 

B969 00 

B96A 6C6F6720 ANSI: DEFB 'log ( ',0 
B96E 282000 

B971 20292069 ANS2: DEFB ' ) is equal to ' ,0 
B975 73206571 
B979 75616C20 
B97D 746F2000 


a=&hb900:cal1 a 

single precision number ? 0.001 

log ( 0.001 ) is equal to -6.90776 

single precision number ? 0.01 

log ( 0.01 ) is equal to -4.60517 

single precision number ? 0.1 

log ( 0.1 ) is equal to -2.30259 

single precision number ? 1 

1og ( 1 ) is equal to 0 

single precision number ? 10 

1og ( 10 ) is equal to 2.30259 

single precision number ? 100 

log ( 100 ) is equal to 4.60517 

single precision number ? 10000 

log ( 10000 ) is equal to 9.21034 

single precision number ? 100000000 

log ( 100000000 ) is equal to 18.4207 

single precision number ? -100 

Illegal function call 

0k 
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1 F 5 3 H : i 


7 KUX 






* M 


— T >f > 
&V\ 7o- 


-9- > 7°;u 


B900 215CB9 
B903 CD53B9 
B906 CD925F 
B909 D8 
B90A 23 
B90B CD41B9 
B90E CDC826 
B911 CD1422 
B914 CDE820 
B917 C5 
B918 D5 

B919 216AB9 
B91C CD53B9 
B91F CD925F 
B922 23 
B923 CD41B9 
B926 CDC826 
B929 CD1422 

B92C D1 
B92D Cl 
B92E CD531F 
B931 CDD028 
B934 E5 
B935 2175B9 
B938 CD53B9 
B93B El 
B93C CD53B9 

B93F 18BF 


B941 E5 
B942 210000 
B945 223DEC 
B948 223FEC 
B94B 2241EC 
B94E 2243EC 
B951 El 
B952 C9 


B953 7E 


1 F 5 3 H 

A, F, B, C, D, E, H, L 

L, 7 u 

T4 >7- £'*) it. 


multiplication for single precision - 


ORG 0B900H 

START: LD HL.PRMPT1 
CALL DSPMSG 
CALL 5F92H 
RET C 
INC HL 
CALL CLRFAC 
CALL 26C8H 
CALL 2214H 
CALL 20E8H 
PUSH BC 
PUSH DE 

LD HL.PRMPT2 
CALL DSPMSG 
CALL 5F92H 
INC HL 
CALL CLRFAC 
CALL 26C8H 
CALL 2214H 

POP DE 
POP BC 
CALL 1F53H 
CALL 28D0H 
PUSH HL 

LD HL,ANSWER 
CALL DSPMSG 
POP HL 
CALL DSPMSG 

JR START 


J screen editor 
; stop key, return to basic 

; clear floating point accumulator 
! convert into binary code 
! convert into single precision 
; move from face to register bede 


; screen editor 

; clear floating point accumulator 
; convert into binary code 
; convert into single precision 


;*multiply Creg-bcdeD by CfaccD 
; convert into character code 


; display result 


; clear floating point accumulator subroutine 


CLRFAC:PUSH 

HL 

LD 

HL,0 

LD 

(0EC3DH),HL 

LD 

(0EC3FH),HL 

LD 

(0EC41H),HL 

LD 

(0EC43H),HL 

POP 

HL 

RET 


; display message subroutine 

DSPMSG:LD 

A, (HL) 
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B954 

A7 

AND 

A 

B955 

C8 

RET 

Z 

B956 

CD0D3E 

CALL 

3E0DH 

B959 

23 

INC 

HL 

B95A 

18F7 

JR 

DSPMSG 



; massage area 

B95C 

0D0A0A20 

PRMPTlsDEFB 

ODH.OAH, 

B960 

20202078 



B964 

2020203F 



B968 

2000 



B96A 

20202020 

PRMPT2:DEFB 

y 

B96E 

79202020 



B972 

3F2000 



B975 

78202A20 

ANSWER:DEFB 

'x * y - 

B979 

79202D2D 



B97D 

3E2000 




; display a character 

OAH,' x ? ',0 

? ',0 
-> ' ,0 


a=&hb900:cal 1 a 


x ? 10000 

y ? 100 

x * y —) 1E+06 

x ? 1 

y ? 1 

X * y —> 1 

x ? 2 

y ? 2 
x * y —> 4 

X ? 100 
y ? 123 
x * y --> 12300 

x ? 


Ok 



i fb 7 h : 


7” Kux | 

m m 

I 


1 FB 7 H 

A, F, B, C, D, E, H, 


L 


JP i» 

— T -(/'Z 


7* 3-i*v — L-C8fclf£?T 


7d —r 4 >7"- 7JriAu-7lciS^t&lrtL-C^ if*) it. 
tL, 7o-T^/-7^iAk-i|;#z.|||f^0 (-fero) X'h-otzi% 

-o'!-(i, “Division by zero"(/0 Error) z-7 — l : 4* •) i T7-l' >77U 7(±, 


V 0 ”<7)7 v -te— L, fgf#)tS<7)3||gci LrtSo ^<7)T'^.-S.St<7)|S[ffi 

(1- 7014 1 1 834604693D + 38 Lt4i.it. 




division for single 




0RG 

0B900H 

B900 

215CB9 

START: LD 

HL,PRMPT1 

B903 

CD53B9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD41B9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

CD1422 

CALL 

2214H 

B914 

CDE820 

CALL 

20E8H 

B917 

C5 

PUSH 

BC 

B918 

D5 

PUSH 

DE 

B919 

216AB9 

LD 

HL.PRMPT2 

B91C 

CD53B9 

CALL 

DSPMSG 

B91F 

CD925F 

CALL 

5F92H 

B922 

23 

INC 

HL 

B923 

CD41B9 

CALL 

CLRFAC 

B926 

CDC826 

CALL 

26C8H 

B929 

CD1422 

CALL 

2214H 

B92C 

D1 

POP 

DE 

B92D 

Cl 

POP 

BC 

B92E 

CDB71F 

CALL 

1FB7H 

B931 

CDD028 

CALL 

28D0H 

B934 

E5 

PUSH 

HL 

B935 

2175B9 

LD 

HL,ANSWER 

B938 

CD53B9 

CALL 

DSPMSG 

B93B 

El 

POP 

HL 

B93C 

CD53B9 

CALL 

DSPMSG 

B93F 

18BF 

JR 

START 


precision - 


; screen editor 
• stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
! convert into single precision 
; move from face to register bede 


; screen editor 

• clear floating point accumulator 
; convert into binary code 
; convert into single precision 


;*divide Cregister bcdeD by CfaccD 
; convert into character code 


; display result 


* clear floating point accumulator subroutine 

B941 E5 CLRFAC:PUSH HL 

B942 210000 LD HL.O 
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B945 

223DEC 

LD 

(0EC3DH),HL 

B948 

223FEC 

LD 

(0EC3FH),HL 

B94B 

2241EC 

LD 

(0EC41H),HL 

B94E 

2243EC 

LD 

(0EC43H), HL 

B951 

El 

POP 

HL 

B952 

C9 

RET 



display message subroutine 


B953 

7E 

DSPMSG:LD 

A, (HL) 

B954 

A7 

AND 

A 

B955 

C8 

RET 

Z 

B956 

CD0D3E 

CALL 

3E0DH 

B959 

23 

INC 

HL 

B95A 

18F7 

JR 

DSPMSG 



; massage area 

B95C 

0D0A0A20 

PRMPTlsDEFB 

0DH.0AH.0AH 

B960 

20202078 



B964 

2020203F 



B968 

2000 



B96A 

20202020 

PRMPT2:DEFB 

y ? 

B96E 

79202020 



B972 

3F2000 



B975 

78202F20 

ANSWER:DEFB 

' x / y —> 

B979 

79202D2D 



B97D 

3E2000 




; display 


? ' ,0 


a=&hb900:ca11 a 


x ? 100000 
y ? 10 

x / y --> 10000 

x ? 10 

y ? -3 

x / y —> -3.33333 

x ? 5 

y ? abc 

/0 

x / y —> 1.70141E+38 

x ? 20 

y ? 6 

x / y —> 3.33333 

x ? 

Ok 


character 
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2 0 A B H ! FAC ■*§■£■/si IeT 5 


2 0 A BH 

7P-f-f - 7 + aAU-^ (FACC) £. 

A, F, H, L 

7D-f^7.T3fail/-; (FACC) 

(NEGATION) IXbt'V&t. 
7U-TJ >?’. T*j-AU-?cr>{K%i%V>M±.iZL'-<'( h (E C 4 
3H#itfe) <50ft±fih''y h (MSB) £RtgLT'''&<7)AT'", E A B D H 
j-3L-s ?^x.7— SfLJSli^: < frftoTV'i 7n-f^ > ?' • T^fai 

u - ? <7) f"- ? ti -E-T HIS S XX: If tM v * tt i -t A. 





J negation for the real number - 




ORG 

0B900H 

B900 

2147B9 

START: LD 

HL,PROMPT 

B903 

CD3EB9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD2CB9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

3ABDEA 

LD 

A, (OEABDH) 

B914 

FE02 

CP 

2 

B916 

CC2F22 

CALL 

Z,222FH 

B919 

CDAB20 

CALL 

20ABH 

B91C 

CDD028 

CALL 

28D0H 

B91F 

E5 

PUSH 

HL 

B920 

215FB9 

LD 

HL,ANSWER 

B923 

CD3EB9 

CALL 

DSPMSG 

B926 

El 

POP 

HL 

B927 

CD3EB9 

CALL 

DSPMSG 

B92A 

18D4 

JR 

START 



• clear floating point 

B92C 

E5 

CLRFAC:PUSH 

HL 

B92D 

210000 

LD 

HL ,0 

B930 

223DEC 

LD 

(0EC3DH),HL 

B933 

223FEC 

LD 

< 0EC3FH),HL 

B936 

2241EC 

LD 

C0EC41H),HL 

B939 

2243EC 

LD 

(0EC43H),HL 

B93C 

El 

POP 

HL 

B93D 

C9 

RET 




f 

; display message subrov 

B93E 

7E 

DSPMSG:LD 

A , (HL) 

B93F 

A7 

AND 

A 

B940 

C8 

RET 

Z 


screen editor 

stop key, return to basic 

clear floating point accumulator 
convert into binary code 


; convert into the real number 

{^negation for the real number 
» convert into character code 


display result 


28 



















B941 CD0D3E CALL 3E0DH ; display 

B944 23 INC HL 

B945 18F7 JR DSPMSG 


; massage area 

B947 0D0A0A61 PROMPT:DEFB 0DH,0AH,0AH,'a real number x 

B94B 20726561 

B94F 6C206E75 

B953 6D626572 

B957 20782020 

B95B 203F2000 

B95F 20202020 ANSUERjDEFB ' -x --> ',0 

B963 20202020 

B967 20202020 

B96B 202D7820 

B96F 2D2D3E20 

B973 00 


a= 

=&hb900 Seal 1 a 



a 

real 

number x 

? 

123456789 



-x 

--> 

-123456789 

a 

real 

number x 

7 

1.23456789 



“X 

--> 

-1.23456789 

a 

real 

number x 

7 

-30000 



-x 

--> 

30000 

a 

rea 1 

number x 

? 

-5.55 



-x 

— > 

5.55 

a 

real 

number x 

? 

398724873784279879837983729874 



-x 

— > 

-3.9872487378428D+29 

a 

real 

number x 

? 



Ok 


character 


? ',0 



2 o e 8 h : rnmmmm&mmtr'frti: i. 


T K U-* 


m m 




2 0 E 8 H 

B, C, D, E, H, L 


_d 70 -Tp/’TJfai-j' (FACC) tc1Sin$iVO'2)#Jfi| 

J#S!<f>SS&£, i/yX^BCDEC^Ut. 

J:-j (c, y -t >J _hT"f±fLh'(£''M F cor’— 9h*V : J X 9 B M, #§■ 


‘4 

h <DT- 

9 ffv 

i? 

X 

9 

E 

\z 

tfrtrtsiiii-, 

V 


«- 

E 

C 

4 

1 

H 


w 

: JK?D 

«- 

E 

C 

4 

2 

H 

#«s 

V 

yXK 

<- 

E 

C 

4 

3 

H 


V 

yX^B 

*- 

E 

C 

4 

4 

H 

mt 


If V7';u 


J - dump single precision number on memory - 

ORG 0B900H 


B900 

216AB9 

START: LD 

HL,PROMPT 

B903 

CD41B9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD2FB9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

CD1422 

CALL 

2214H 

B914 

CDE820 

CALL 

20E8H 

B917 

2188B9 

LD 

HL,ANSWER 

B91A 

CD41B9 

CALL 

DSPMSG 

B91D 

7B 

LD 

A,E 

B91E 

CD4AB9 

CALL 

DSPACC 

B921 

7A 

LD 

A,D 

B922 

CD4AB9 

CALL 

DSPACC 

B925 

79 

LD 

A, C 

B926 

CD4AB9 

CALL 

DSPACC 

B929 

78 

LD 

A,B 

B92A 

CD4AB9 

CALL 

DSPACC 

B92D 

18D1 

JR 

START 



; clear floating point , 

B92F 

E5 

CLRFAC:PUSH 

HL 

B930 

210000 

LD 

HL ,0 

B933 

223DEC 

LD 

(0EC3DH),HL 

B936 

223FEC 

LD 

(0EC3FH),HL 

B939 

2241EC 

LD 

(0EC41H),HL 

B93C 

2243EC 

LD 

(0EC43H),HL 

B93F 

El 

POP 

HL 

B940 

C9 

RET 



; screen editor 
; stop key, return to basic 

* clear floating point accumulator 

* convert into binary code 

* convert into single precision 

;*move from face to register bede 
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display message subroutine 


B941 

7E DSPMSG:LD 

A,(HL) 


B942 

A7 

AND 

A 


B943 

C8 

RET 

Z 


B944 

CD0D3E 

CALL 

3E0DH J display 

a character 

B947 

23 

INC 

HL 


B948 

18F7 

JR 

DSPMSG 




display accumulator hexa decimal subroutine 



destroys : register a.f,1 


B94A 

6F C 

JSPACC:LD 

L, A 


B94B 

OF 

RRCA 



B94C 

OF 

RRCA 



B94D 

OF 

RRCA 



B94E 

OF 

RRCA 



B94F 

CD5CB9 

CALL 

HALF J display 

msb four bits 

B952 

70 

LD 

A,L 


B953 

CD5CB9 

CALL 

HALF 5 display 

1sb four bits 

B956 

3E20 

LD 

A,' ' 


B958 

CD0D3E 

CALL 

3E0DH 5 display 

space code 

B95B 

C9 

RET 



B95C 

E60F HALF: AND 

0FH 


B95E 

FE0A 

CP 

10 


B960 

3802 

JR 

C,NUMBER 


B962 

C607 

ADD 

A,7 


B964 

C630 NUMBER:ADD 

A , 30H 


B966 

CD0D3E 

CALL 

3E0DH ; display 

a character 

B969 

C9 

RET 





massage area 


B96A 

0D0A0A73 1 

Prompt:defb 

0DH,0AH,0AH,'single precision number ? ',0 

B96E 

696E676C 




B972 

65207072 




B976 

65636973 




B97A 

696F6E20 




B97E 

6E756D62 




B982 

6572203F 




B986 

2000 




B988 

20202020 i 

ANSWER:DEFB 

on memory : 

,0 

B98C 

20202020 




B990 

20202020 




B994 

20206F6E 




B998 

206D656D 




B99C 

6F727920 




B9A0 

3A2000 





a=&hb900:ca11 a 


single precision number ? 0 

on memory : 00 00 00 00 

single precision number ? 1 

on memory : 00 00 00 81 

single precision number ? 2 

on memory : 00 00 00 82 

single precision number ? 10 

on memory J 00 00 20 84 

single precision number ? 100 

on memory : 00 00 48 87 

single precision number ? 1000 

on memory : 00 00 7A 8A 

single precision number ? 

0k 
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2 13 4 h : mm&mm&obmbnKi. 


2 1 3 4 H 
A, F, H, L 

1/xX^BCDE izmh ££$ 1 ✓<7 y -? t 
L, 7d-t4 (FACC) 

ZW, 2 '< 7 / — 9 t ^a. M.U — ?izMti 

LTiif I) £-f. 

A-iAi/-t -3 *) x~t. 

W,l'<y/ — ?<%,2'<y J — 9 <r>i%&T % ^ — yjco 1 H£4;i£>. 

^ 1 '< 7 1 — y = 81 2 ^'“yy —;?c7)*§£-T =Sf A W —ytc 0 0 H 
W, 1 ^’7X- 1'<y / — 7<7)t$;&-T* SL A1 /-yfcF F H 


7 K UJ* 


* 




m vt 


V- > 7°;u 


compare for single 




0RG 

0B?00H 

B900 

2164B9 

START: LD 

HL,PRMPT1 

B903 

CD5BB9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

08 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD49B9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

CD1422 

CALL 

2214H 

B914 

CDE820 

CALL 

20E8H 

B917 

C5 

PUSH 

BC 

B918 

D5 

PUSH 

DE 

B919 

216DB9 

LD 

HL,PRMPT2 

B91C 

CD5BB9 

CALL 

DSPMSG 

B91F 

CD925F 

CALL 

5F92H 

B922 

23 

INC 

HL 

B923 

CD49B9 

CALL 

CLRFAC 

B926 

CDC826 

CALL 

26C8H 

B929 

CD1422 

CALL 

2214H 

B92C 

D1 

POP 

DE 

B92D 

Cl 

POP 

BC 

B92E 

CD3421 

CALL 

2134H 

B931 

A7 

AND 

A 

B932 

2005 

JR 

NZ,NEQUAL 

B934 

2173B9 

LD 

HL,ANSI 

B937 

180B 

JR 

DSPLAY 

B939 

F241B9 

NEQUAL:JP 

P.LESS 

B93C 

217BB9 

LD 

HL.ANS2 

B93F 

1803 

JR 

DSPLAY 

B941 

2183B9 

LESS: LD 

HL.ANS3 


precision - 


{ screen editor 
; stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
• convert into single precision 
; move from face to register bede 


; screen editor 

; clear floating point accumulator 
, convert into binary code 
; convert into single precision 


!*compare for single precision 


; accumulator equal to 0, x! =y! 


* accumulator equal to -1, x!>y 1 
; accumulator equal to 1, x!<y! 
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B944 

CD5BB9 

DSPLAY:CALL 

DSPMSG 

B947 

18B7 

JR 

START 



; clear floating point i 

B949 

E5 

CLRFACjPUSH 

HL 

B94A 

210000 

LD 

HL,0 

B94D 

223DEC 

LD 

(0EC3DH),HL 

B950 

223FEC 

LD 

(0EC3FH),HL 

B953 

2241EC 

LD 

(0EC41H),HL 

B956 

2243EC 

LD 

(0EC43H),HL 

B959 

El 

POP 

HL 

B95A 

C9 

RET 



display result 


B95B 7E 
B95C A7 
B95D C8 
B95E CD0D3E 
B961 23 
B962 18F7 


B964 0D0A0A78 
B968 21203F20 


display message subroutine 

DSPMSG:LD A,(HL) 

AND A 
RET Z 
CALL 3E0DH 
INC HL 
JR DSPMSG 

massage area 

PRMPT1:DEFB ODH.OAH.OAH,'x! ' 


display a character 


B96D 

B971 

7921203F 

2000 

PRMPT2:DEFB 

' yi 

7 

' ,0 

B973 

B977 

7821203D 

20792100 

ANSI: 

DEFB 

'x\ 

= 

y! ' ,0 

B97B 

B97F 

7821203E 

20792100 

ANS2: 

DEFB 

' x! 

> 

y > ' ,0 

B983 

B987 

7821203C 

20792100 

ANS3: 

DEFB 

* x! 

< 

y! ' ,0 


a=&hb900:cal1 a 


x! ? 123456.789 
y i ? 1234567.89 
x! < y ! 

x' ? 123456789 
y i ? 123456788 

x< = y' 

x' ? 1.11111 

y' ? 1.1111100000001 

x 1 = y ! 

x! ? 98 
y i 7 -98 
x! > y! 

x 1 7 
Ok 
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2 1 5 FH : SE»<7)JtR«rfT*9 


2 1 5 FH 

A, F 

^ v X y D E !cf&frt£ it£1 6 t' y h c0^iSc£#S 1 ^->”9 / 

-^iU 1 6 h'-y h<7)* m£%2'<7ji- 

9 t LTP^coJtKIrff^^, —^{ct&JrtLTt t'D it 

it®c&%:t7*j.l,u-?l l zJ§-z-Z,%ii§.t<7)mim>k<r)t i 0 ft. 

^ 1/N ’7^ — y<^§2''°7/ — ytcO 1 H 

® 1 / '‘7^-^=l2^ , 7^-^cOf^T^aAV-^|; 0 0 H £#£ £ 
® 1 ''‘7/ —y>@ 2 y'°7 7 — i AW — yicF FH %4-z.h 


7 V I'X 



t > y‘Ji- 


; - compare for integer - 




0RG 

0B900H 

B900 

2166B9 

START: LD 

HL.PRMPT1 

B903 

CD5DB9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD4BB9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

CDA021 

CALL 

21A0H 

B914 

ED5B41EC 

LD 

DE,(0EC41H) 

B918 

05 

PUSH 

DE 

B919 

216FB9 

LD 

HL,PRMPT2 

B91C 

CD5DB9 

CALL 

DSPMSG 

B91F 

CD925F 

CALL 

5F92H 

B922 

23 

INC 

HL 

B923 

CD4BB9 

CALL 

CLRFAC 

B926 

CDC826 

CALL 

26C8H 

B929 

CDA021 

CALL 

21A0H 

B92C 

2A41EC 

LD 

HL,(0EC41H) 

B92F 

D1 

POP 

DE 

B930 

CD5F21 

CALL 

215FH 

B933 

A7 

AND 

A 

B934 

2005 

JR 

NZ,NEQUAL 

B936 

2175B9 

LD 

HL,ANSI 

B939 

180B 

JR 

DSPLAY 

B93B 

F243B9 

NEQUAL:JP 

P.LESS 

B93E 

217DB9 

LD 

HL,ANS2 

B941 

1803 

JR 

DSPLAY 

B943 

2185B9 

LESS: LD 

HL,ANS3 

B946 

CD5DB9 

DSPLAY:CALL 

DSPMSG 

B949 

18B5 

JR 

START 


; screen editor 
; stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
; convert into integer 
5 store 1st argument into reg-de 


; screen editor 

J clear floating point accumulator 
; convert into binary code 
; convert into integer 
5 set 2nd argument into reg-hl 

J set 1st argument into reg-de 

;*compare for integer 


; accumulator equal to 0, x\-y m /. 


; accumulator equal to -1, x%>y% 


5 accumulator equal to 1, x*/.(y\ 
; display result 
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clear floating point accumulator subroutine 


B94B 

E5 

CLRFAC:PUSH 

HL 

B94C 

210000 

LD 

HL, 0 

B94F 

223DEC 

LD 

(0EC3DH), HL 

B952 

223FEC 

LD 

(0EC3FH), HL 

B955 

2241EC 

LD 

(0EC41H),HL 

B958 

2243EC 

LD 

(0EC43H),HL 

B95B 

El 

POP 

HL 

B95C 

C9 

RET 



display message subroutine 


B95D 

7E 

DSPMSGjLD 

A,(HL) 

B95E 

A7 

AND 

A 


B95F 

C8 

RET 

Z 


B960 

CD0D3E 

CALL 

3E0DH 

B963 

23 

INC 

HL 


B964 

18F7 

JR 

DSPMSG 



; message area 


B966 

0D0A0A78 

PRMPT1:0EFB 

0DH,0AH,0AH 

B96A 

25203F20 




B96E 

00 




B96F 

7925203F 

PRMPT2:DEFB 

' y% 

? ' ,0 

B973 

2000 




B975 

7825203D 

ANSI: DEFB 

' xJj 

= yV .0 

B979 

20792500 




B97D 

7825203E 

ANS2: DEFB 

' X* 

> y %',0 

B981 

20792500 




B985 

7825203C 

ANS3: DEFB 

' xJj 

< y‘4',0 

B989 

20792500 





; display a character 


' ,0 


a=&hb900:cal 1 a 


x* ? 5 
y* ? -5 

x5» > y\ 

x* ? 5000 
y* ? 5000.4 
x*4 = y*4 

x* ? 5000 
y\ ? 5000.5 
< y?J 

x* ? 35000 

Overf1ou 
Ok 
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2 1 A 0 H : FACC^f-^^rltCfitS 


2 I A 0 H 

FACCWx-^«rSSfclC$mt5. 

A, F, B, C, D, E, H, L 

(FACC) (Cfeift£;fX£|Mi7' 
- 9 L, u^X^HLlctlSWLTtJfOit. 

yxj-r ^>9" • T^iZ.V'-^*»i-CKSEttS!-C*-3fc*^tliW«,*-fk: 
t t*') it**, ttS (EABDHSW'O 3 H) T'& r> tztk&lzli “Type mis 
match” (TM Error) JC.?-**jg£ V , f"- 9 £ b ( 

-3 2768 -± 32767) (i “Overflow” (OV Error) 

17 -ffi:») it. 

UrttfttCti, 'JXi'-K'O 0 3 0 H#fili^3-;i.L-C7n-r^ >7'- T* 
3--UV — 9 (FACC) i±£D± •} L T v> i t. 

FACC^fcS^Jf-g', 6 it. 

F A C Crft£¥ Kc7)*§£-, 0 3BlH#f4 (x7-ftl) ic^AiL i t. 

FACC*''#«^iiS<7)if-g-, 2 1 BCH#:MiU«-|l£Lit. 

FACC 2 1 A B H #fife(C jx > h ij L i t. 
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; - convert face into integer - 




0RG 

0B900H 

B900 

212AB9 

START: LD 

HL,PROMPT 

B903 

CD21B9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CDBC26 

CALL 

26BCH 

B90E 

CDA021 

CALL 

21A0H 

B911 

CDD028 

CALL 

28D0H 

B914 

E5 

PUSH 

HL 

B915 

2139B9 

LD 

HL,ANSWER 

B918 

CD21B9 

CALL 

DSPMSG 

B91B 

El 

POP 

HL 

B91C 

CD21B9 

CALL 

DSPMSG 

B91F 

18DF 

JR 

START 



; display message subroutine 

B921 

7E 

DSPMSGsLD 

A,(HL) 

B922 

A7 

AND 

A 

B923 

C8 

RET 

Z 

B924 

CD0D3E 

CALL 

3E0DH 

B927 

23 

INC 

HL 

B928 

18F7 

JR 

DSPMSG 


; screen editor 
; stop key, return to basic 

; convert into binary code 

;*convert face into an integer 
; convert face into character code 


; display an integer 


; display a character 


; massage area 

B92A 0D0A0A61 PROMPT:DEFB 0DH.0AH.0AH/a number ? '.0 
B92E 206E756D 
B932 62657220 
B936 3F2000 

B939 616E2069 ANSWER:DEFB 'an integer : '.0 
B93D 6E746567 
B941 6572203A 
B945 2000 


a=&hb900 Jcal 1 a 


a number ? 

1 

an integer 

: 1 

a number ? 

1.4 

an integer 

: 1 

a number ? 

in 

T-i 

an integer 

: 2 

a number ? 

1.6 

an integer 

: 2 

a number ? 

3.3333333 

an integer 

: 3 

a number ? 

-32000 

an integer 

: -32000 

a number ? 


Ok 
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2 1bch :. 


2 1 BCH 

4mMtsfttt*sik(=£*r s. 

A, F, B, C, D, E, H, L 

7 n-f^7'T3faAM (FACC) tcf&IA 

mm$k z mm~ l x i 4r o i t. 

fc tf L, •f— £iEHl*| (- 3 2 7 6 8 ~+ 3 2 7 6 7 ) 

“Overflow" (OV Error) i7—*) £ i". 
7D-f^7'7^Al/-; (FACC) coMZi-x."/? LX^tf 





convert single pricision number into integer - 




ORG 

0B900H 

B900 

2139B9 

START: LD 

HL,PROMPT 

B903 

CD30B9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CDBC26 

CALL 

26BCH 

B90E 

3ABDEA 

LD 

A, (OEABDH) 

B911 

FE04 

CP 

04H 

B913 

2013 

JR 

NZ,ERROR 

B915 

CDBC21 

CALL 

21BCH 

B918 

CDD028 

CALL 

28D0H 

B91B 

E5 

PUSH 

HL 

B91C 

2157B9 

LD 

HL,ANSWER 

B91F 

CD30B9 

CALL 

DSPMSG 

B922 

El 

POP 

HL 

B923 

CD30B9 

CALL 

DSPMSG 

B926 

18D8 

JR 

START 

B928 

2162B9 

ERROR: LD 

HL,MSGERR 

B92B 

CD30B9 

CALL 

DSPMSG 

B92E 

18D0 

JR 

START 



; display message subroi 

B930 

7E 

DSPMSG:LD 

A,< HL) 

B931 

A7 

AND 

A 

B932 

C8 

RET 

Z 

B933 

CD0D3E 

CALL 

3E0DH 

B936 

23 

INC 

HL 

B937 

18F7 

JR 

DSPMSG 



; massage area 

B939 

0D0A0A73 

PROMPT:DEFB 

0DH,0AH,0AH, 

B93D 

696E676C 




! screen editor 
; stop key, return to basic 

• convert into binary code 

; not single precision, error !! 

;*single precision no. to integer 
; convert face into character code 


• display an integer 


ine 

; display a character 

single precision number ? ',0 
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B941 65207072 
B945 65636973 
B949 696F6E20 
B94D 6E756D62 
B951 6572203F 
B955 2000 

B957 696E7465 ANSUERjDEFB 'integer : ',0 
B95B 67657220 
B95F 3A2000 

B962 6E6F7420 MSGERR:DEFB 'not single precision 1 !'»07H,0 

B966 73696E67 

B96A 6C652070 

B96E 72656369 

B972 73696F6E 

B976 20212107 

B97A 00 


a=&hb900 teal 1 a 


single precision number ? 3 
not single precision !! 

single precision number ? 3 1 
integer : 3 


single precision number ? 3# 
not single precision !! 

single precision number ? -5000 
not single precision !! 


single precision number ? -5000 1 
integer : -5000 

single precision number ? -50000 
Overf1ow 
Ok 
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2 1 FDH : MfcfcFACCCteSflTS 


2 1 FDH 

A 

U2X^HL<0Mftl 1 6 t'-y MSScS<7)7n-r^ V 

/•TifiAl'-; (EC41H-EC42 H#M) Icf&ijftL, EABDH#it 
lc:ii§i&S£3?;btO 2 H^AixTi i'9 tt. 



I 1 


J - numbers with a byte - 


ORG 0B900H 


B900 

3E00 

LD 

A, 0 

B902 

F5 

LOOP: PUSH 

AF 

B903 

6F 

LD 

L, A 

B904 

CD2DB9 

CALL 

DSPACC 

B907 

2600 

LD 

H, 0 

B909 

CDFD21 

CALL 

21FDH 

B90C 

3E80 

LD 

A, 80H 

B90E 

0604 

LD 

B,4 

B910 

0E00 

LD 

C,0 

B912 

CDD128 

CALL 

28D1H 

B915 

CD44B9 

CALL 

DSPMSG 

B918 

3E20 

LD 

A,' ' 

B91A 

CD0D3E 

CALL 

3E0DH 

B91D 

CD0D3E 

CALL 

3E0DH 

B920 

CD0D3E 

CALL 

3E0DH 

B923 

CD0D3E 

CALL 

3E0DH 

B926 

FI 

POP 

AF 

B927 

3C 

INC 

A 

B928 

FE00 

CP 

0 

B92A 

20D6 

JR 

NZ.LOOP 

B92C 

C9 

RET 



; display the integer hexa decimal 
;*store register hi into face 

» appoint format 

» convert into character code 
; display the integer decimal 

» display four spaces 

» return to basic 


; display accumulator hexa decimal subroutine 


destroys : register a,f,b 


B92D 

47 

DSPACC:LD 

B, A 

B92E 

OF 

RRCA 


B92F 

OF 

RRCA 


B930 

OF 

RRCA 


B931 

OF 

RRCA 


B932 

CD36B9 

CALL 

HALF 

B935 

78 

LD 

A,B 

B936 

E60F 

HALF: AND 

0FH 

B938 

FE0A 

CP 

10 

B93A 

3802 

JR 

C,NUMBER 

B93C 

C607 

ADD 

A,7 

B93E 

C630 

NUMBER:ADD 

A, 30H 

B940 

CD0D3E 

CALL 

3E0DH 


display a character 
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B943 C9 


RET 


display message subroutine 


B944 

7E 

DSPMSG:LD 

A,< HL > 

B945 

A7 

AND 

A 

B946 

C8 

RET 

Z 

B947 

CD0D3E 

CALL 

3E0DH 

B94A 

23 

INC 

HL 

B94B 

18F7 

JR 

DSPMSG 


display a character 


a=&hb900:cal1 a 


00 

0 

01 

1 

02 

2 

03 

3 

08 

8 

09 

9 

OA 

10 

OB 

11 

10 

16 

11 

17 

12 

18 

13 

19 

18 

24 

19 

25 

1A 

26 

IB 

27 

20 

32 

21 

33 

22 

34 

23 

35 

28 

40 

29 

41 

2A 

42 

2B 

43 

30 

48 

31 

49 

32 

50 

33 

51 

38 

56 

39 

57 

3A 

58 

3B 

59 

40 

64 

41 

65 

42 

66 

43 

67 

48 

72 

49 

73 

4A 

74 

4B 

75 

50 

80 

51 

81 

52 

82 

53 

83 

58 

88 

59 

89 

5A 

90 

5B 

91 

60 

96 

61 

97 

62 

98 

63 

99 

68 

104 

69 

105 

6A 

106 

6B 

107 

70 

112 

71 

113 

72 

114 

73 

115 

78 

120 

79 

121 

7A 

122 

7B 

123 

80 

128 

81 

129 

82 

130 

83 

131 

88 

136 

89 

137 

8A 

138 

8B 

139 

90 

144 

91 

145 

92 

146 

93 

147 

98 

152 

99 

153 

9A 

154 

9B 

155 

AO 

160 

A1 

161 

A2 

162 

A3 

163 

A8 

168 

A9 

169 

AA 

170 

AB 

171 

BO 

176 

B1 

177 

B2 

178 

B3 

179 

B8 

184 

B9 

185 

BA 

186 

BB 

187 

CO 

192 

Cl 

193 

C2 

194 

C3 

195 

C8 

200 

C9 

201 

CA 

202 

CB 

203 

DO 

208 

D1 

209 

D2 

210 

D3 

211 

D8 

216 

D9 

217 

DA 

218 

DB 

219 

EO 

224 

El 

225 

E2 

226 

E3 

227 

E8 

232 

E9 

233 

EA 

234 

EB 

235 

FO 

240 

FI 

241 

F2 

242 

F3 

243 

F8 

248 

F9 

249 

FA 

250 

FB 

251 


Ok 


04 

4 

05 

5 

06 

6 

07 

7 

OC 

12 

OD 

13 

OE 

14 

OF 

15 

14 

20 

15 

21 

16 

22 

17 

23 

1C 

28 

ID 

29 

IE 

30 

IF 

31 

24 

36 

25 

37 

26 

38 

27 

39 

2C 

44 

2D 

45 

2E 

46 

2F 

47 

34 

52 

35 

53 

36 

54 

37 

55 

3C 

60 

3D 

61 

3E 

62 

3F 

63 

44 

68 

45 

69 

46 

70 

47 

71 

40 

76 

4D 

77 

4E 

78 

4F 

79 

54 

84 

55 

85 

56 

86 

57 

87 

5C 

92 

5D 

93 

5E 

94 

5F 

95 

64 

100 

65 

101 

66 

102 

67 

103 

6C 

108 

6D 

109 

6E 

110 

6F 

111 

74 

116 

75 

117 

76 

118 

77 

119 

7C 

124 

7D 

125 

7E 

126 

7F 

127 

84 

132 

85 

133 

86 

134 

87 

135 

8C 

140 

8D 

141 

8E 

142 

8F 

143 

94 

148 

95 

149 

96 

150 

97 

15L 

9C 

156 

9D 

157 

9E 

158 

9F 

159 

A4 

164 

A5 

165 

A6 

166 

A7 

167 

AC 

172 

AD 

173 

AE 

174 

AF 

175 

B4 

180 

B5 

181 

B6 

182 

B7 

183 

BC 

188 

BD 

189 

BE 

190 

BF 

191 

C4 

196 

C5 

197 

C6 

198 

C7 

199 

CC 

204 

CD 

205 

CE 

206 

CF 

207 

D4 

212 

D5 

213 

D6 

214 

D7 

215 

DC 

220 

DD 

221 

DE 

222 

DF 

223 

E4 

228 

E5 

229 

E6 

230 

E7 

231 

EC 

236 

ED 

237 

EE 

238 

EF 

239 

F4 

244 

F5 

245 

F6 

246 

F7 

247 

FC 

252 

FD 

253 

FE 

254 

FF 

255 
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2 2 0 2 H : FAC COS4JISt5 


2 2 0 2 H 

FACCCOS^tS. 

T * jl - ? <7)%Lig£ 7 a —f j >7-T**Als-?COmtl 

X, EABDH&mzfoffllXii?') it. 


T K \S*. 


# ffi 




IS Si 


; — — convert on memory code into the number - 




ORG 

0B900H 

B900 

1171B9 

START: LD 

DE,PRMPT1 

B903 

CD68B9 

CALL 

DSPMSG 

B906 

CD8335 

CALL 

3583H 

B909 

CD0D3E 

CALL 

3E0DH 

B90C 

FE03 

CP 

03H 

B90E 

C8 

RET 

Z 

B90F 

D630 

SUB 

'0' 

B911 

CD0222 

CALL 

2202H 

B914 

47 

LD 

B, A 

B915 

2141EC 

LD 

HL.0EC41H 

B918 

FE08 

CP 

8 

B91A 

2005 

JR 

NZ,NEXTIN 

B91C 

213DEC 

LD 

HL,0EC3DH 

B91F 

1800 

JR 

NEXTIN 

B921 

118AB9 

NEXTIN:LD 

OE,PRMPT2 

B924 

CD68B9 

CALL 

DSPMSG 

B927 

CD8335 

CALL 

3583H 

B92A 

CD0D3E 

CALL 

3E0DH 

B92D 

CD5CB9 

CALL 

HEXBIN 

B930 

4F 

LD 

C, A 

B931 

CD8335 

CALL 

3583H 

B934 

CD0D3E 

CALL 

3E0DH 

B937 

FEOD 

CP 

0DH 

B939 

280D 

JR 

Z.CRCODE 

B93B 

CD5CB9 

CALL 

HEXBIN 

B93E 

CB01 

RLC 

C 

B940 

CB01 

RLC 

C 

B942 

CB01 

RLC 

C 

B944 

CB01 

RLC 

C 

B946 

81 

ADD 

A, C 

B947 

4F 

LD 

C, A 

B948 

71 

CRCODEiLD 

(HL),C 

B949 

23 

INC 

HL 

B94A 

10D5 

DJNZ 

NEXTIN 

B94C 

CDD028 

CALL 

28D0H 

B94F 

E5 

PUSH 

HL 


» input a character from keyboard 
; echo-back a character 

; stop key, return to basic 
; convert into binary code 
;*set type of floating accumulator 
; set loop counter for input 

; top address for single precision 


; top address for double precision 


> input a character from keyboard 
; echo-back a character 
; convert hexa code into binary 

* input a character from keyboard 
; echo-back a character 


; convert hexa code into binary 


; convert into character code 
» push top address onto stack 
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B950 11A2B9 
B953 CD68B9 

B956 D1 
B957 CD68B9 

B95A 18A4 


LD DE,ANSWER 
CALL DSPMSG 

POP DE # pop top address from stack 

CALL DSPMSG J display the number 

JR START 

convert hexa code into binary code subroutine 

inputs : character code in accumulator 
outputs : binary code in accumulator 
destroys : register a,f 


B95C 

FE3A 

HEXBIN:CP 

' 9' +1 

B95E 

3805 

JR 

C.HEXBIl 

B960 

E60F 

AND 

0FH 

B962 

C609 

ADD 

A,9 

B964 

C9 

RET 


B965 

E60F 

HEXBI1:AND 

0FH 

B967 

C9 

RET 



display message subroutine 

destroys * register a,f,d,e 


B968 

1A C 

)SPMSG:LD 

A,(DE) 

B969 

A7 

AND 

A 

B96A 

C8 

RET 

Z 

B96B 

CD0D3E 

CALL 

3E0DH 

B96E 

13 

INC 

DE 

B96F 

18F7 

JR 

DSPMSG 



data area 



B971 0D0A0A74 PRMPT1:DEFB ODH, 0 AH,OAH,'type of the number ? ',0 

B975 79706520 

B979 6F662074 

B97D 6865206E 

B981 756D6265 

B985 72203F20 

B989 00 

B98A 0D0A2020 PRMPT2:DEFB ODH,OAH, ' on memory ? ',0 

B98E 20202020 

B992 2020206F 

B996 6E206D65 

B99A 6D6F7279 

B99E 203F2000 

B9A2 0D0A2020 ANSWER:DEFB ODH,OAH, ' the number : ',0 

B9A6 20202020 

B9AA 20207468 

B9AE 65206E75 

B9B2 6D626572 

B9B6 203A2000 





a=&hb900:call a 


type 

of 

the 

number 

? 

2 



on 

memory 

? 

00 



on 

memory 

? 

00 



the 

number 

: 

0 

type 

of 

the 

number 

? 

2 



on 

memory 

? 

01 



on 

memory 

? 

00 



the 

number 


1 

type 

of 

the 

number 

? 

2 



on 

memory 

? 

50 



on 

memory 

? 

00 



the 

number 


80 

type 

of 

the 

number 

? 

2 



on 

memory 

? 

ff 



on 

memory 

? 

ff 



the 

number 

• 

-1 

type 

of 

the 

number 

? 

4 



on 

memory 

? 

11 



on 

memory 

? 

11 



on 

memory 

? 

11 



on 

memory 

? 

11 



the 

number 


2. j 

type 

of 

the 

number 

? 

8 



on 

memory 

? 

00 



on 

memory 

? 

00 



on 

memory 

? 

00 



on 

memory 

? 

00 



on 

memory 

? 

00 



on 

memory 

? 

00 



on 

memory 

? 

00 



on 

memory 

? 

84 



the 

number 


8 

type 

of 

the 

number 

? 



Ok 
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7 □ -X'f 'S'?' 

N88-BASIC 4 >?-/') ?li, &W)' J'$C,&<7>, 

v> Z 8 0 (aPD7 8 0 ) btztb, 7o-f< > 

7 ■T*z.AU-? (FACC) iWflS 8><4 h X ^ 

U±lcffl.sr.U 4tV7 h >7iTlc 
v'il". 

(FACC) 14, EC3DH — EC 

4 4H«i:li'ft, EABDH#4ttrl±r'-^«0S?r*M'l&ffiA f Aot 

vil". JUTt, — T4 >?" • 7^4,1/- 9<r> 

fti££:^L £1". 

•g&M _ 


EC 4 1 H 

Tfe 8 b •> 

/ Y 

E ABDH 

0 2 H 

E C 4 2 H 

hfe 8 h*•; 

> Y 






EC 4 1 H 

is&smfcs1* ••/ h 

E ABDH 

0 4 H 

EC 4 2 H 

(6i!c®'Ffe8 b •'/ h 


EC 4 3 H 

®mg|5 h&8 b-y Y 


E C 4 4 H 

«*fc»8 b ~y Y 





EC 3 DH 

ffi»*&*fFffi8. b' y Y 

E ABDH 

0 8 H 

EC 3EH 

II 


EC 3 FH 

II 


EC 4 0 H 

II 


E C 4 1 H 

II 


EC 4 2 H 

II 


E C 4 3 H 

IMi&uftfi-hfe8 b'-y h 


EC 4 4 H 

Mfc®8 b ••/ Y 
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2 2 1 4 H : FACC<0T-**m«®fflfcM!T* 


2 2 1 4 H 

F A C C ®f - ? £ JUtMESCXftt 2-. 

A, F, B, C, D, E, H, L 

7 n(FACC) 

— ^ i if») i t. 

7D-r^/'TJfaAi/-; (FACC) *<tTC: #fSJg§y£3!T'*o tz 
£ (i-W i -tfTfc t if *) i ■*-*», (E A B D H 0 3 H ) X’Jb r> tz 

*#a'l^(± “Type mismatch” (TM Error) Jzy —•) it. 

*(W(Jtcf±, ')x;-K'0 0 3 0 H ##&£ 3-;Ht7 n—f -f >7'- T A 
(FACC) <X>gs$ril-c, 7 

FACC 2 2 2 F H #M(c#i!£ Lit. 

FACCi^I^M, 0 3BlH#i* ( 17 -M) £534fcLit. 
FACC ^JIM****®^*^, (51L tttc L if 0 i t. 

FACC 4<{gffi£$ft90>»#, 2 2 1 C H #Jtfeic x > h i) L i t. 


7 F t^X 
1 § HE 

I 

"» Iftl 
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; - convert face into single precision - 




0RG 

0B900H 


B900 

212AB9 

START: LD 

HL.PROMPT 


B903 

CD21B9 

CALL 

DSPMSG 


B906 

CD925F 

CALL 

5F92H 

; screen editor 

B909 

D8 

RET 

C 

; stop key, return to basic 

B90A 

23 

INC 

HL 


B90B 

CDBC26 

CALL 

26BCH 

; convert into binary code 

B90E 

CD1422 

CALL 

2214H 

{^convert face into single precisi 

B911 

CDD028 

CALL 

28D0H 

; convert face into character code 

B914 

E5 

PUSH 

HL 


B915 

2139B9 

LD 

HL,ANSWER 


B918 

CD21B9 

CALL 

DSPMSG 


B91B 

El 

POP 

HL 


B91C 

CD21B9 

CALL 

DSPMSG 

; display single precision number 

B91F 

18DF 

JR 

START 



; display message subroutine 


B921 7E 

DSPMSG:LD A,(HL) 


B922 A7 

AND A 


B923 C8 

RET Z 


B924 CD0D3E 

CALL 3E0DH 

; display a character 

B927 23 

INC HL 


B928 18F7 

JR DSPMSG 



; massage area 



B92A 0D0A0A61 PROMPT:DEFB ODH,OAH,OAH,'a number ? ',0 


B92E 206E756D 
B932 62657220 
B936 3F2000 

B939 73696E67 ANSWER:DEFB 'single precision number : ',0 

B930 6C652070 

B941 72656369 

B945 73696F6E 

B949 206E756D 

B94D 62657220 

B951 3A2000 


a=&hb900:cal 1 a 


a number ? 1 

single precision number : 1 

a number 7 1.00001 

single precision number : 1.00001 

a number ? 1.00000001 
single precision number : 1 

a number ? 3333333333333333 

single precision number : 3.33333E+15 

a number ? 0 

single precision number : 0 

a number ? 0.5 

single precision number : .5 

a number 7 
0k 
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2 2 1 ch : ^ 

2 2 1 CH 



A, F, B, C, D, E, H, L 

(FACC) tt&ifftSivrv'l.fg 


fii&mm&i&mmmnmmzgt&ix i> no it. 


■fy/ju 


♦ convert double pricision into single precision - 


screen editor 

stop key, return to basic 





ORG 

0B900H 

B900 

2139B9 

START: 

LD 

HL,PROMPT 

B903 

CD30B9 


CALL 

DSPMSG 

B906 

CD925F 


CALL 

5F92H 

B909 

D8 


RET 

C 

B90A 

23 


INC 

HL 

B90B 

CDBC26 


CALL 

26BCH 

B90E 

3ABDEA 

* 

LD 

A, (0EABDH) 

B911 

FE08 


CP 

08H 

B913 

2013 


JR 

NZ,ERROR 

B915 

CD1C22 

- 

CALL 

221CH 

B918 

CDD028 


CALL 

28D0H 

B91B 

E5 

9 

PUSH 

HL 

B91C 

2157B9 


LD 

HL,ANSWER 

B91F 

CD30B9 


CALL 

DSPMSG 

B922 

El 


POP 

HL 

B923 

CD30B9 

9 

CALL 

DSPMSG 

B926 

18D8 


JR 

START 

B928 

2172B9 

ERROR: 

LD 

HL.MSGERR 

B92B 

CD30B9 


CALL 

DSPMSG 

B92E 

18D0 


JR 

START 



; display message subre 

B930 

7E 

DSPMSG:LD 

A,(HL) 

B931 

A7 


AND 

A 

B932 

C8 


RET 

Z 

B933 

CD0D3E 


CALL 

3E0DH 

B936 

23 


INC 

HL 

B937 

18F7 


JR 

DSPMSG 


convert into binary code 
not double precision, error !! 


{^convert from double precion no. 

; convert face into character code 


display single precision number 


B939 

B93D 

B941 

B945 

B949 

B94D 

B951 

B955 

B957 

B95B 

B95F 


0D0A0A64 

6F75626C 

65207072 

65636973 

696F6E20 

6E756D62 

6572203F 

2000 

73696E67 

6C652070 

72656369 


display a character 


massage area 

PROMPT:DEFB 0DH,0AH,0AH,double precision number ? ',0 


ANSWER:DEFB 'single precision number : ',0 


48 















B963 73696F6E 
B967 206E756D 
B96B 62657220 
B96F 3A2000 

B972 6E6F7420 MSGERR:DEFB 'not double precision M',07H,0 

B976 646F7562 

B97A 6C652070 

B97E 72656369 

B982 73696F6E 

B986 20212107 

B98A 00 


a=&hb900:call a 


double precision number ? 3333333 
not double precision !! 


double precision number ? 33333333 
single precision number : 3.33333E+07 


double precision number ? 333333333333333333333333333333333333 
single precision number : 3.33333E+35 


double precision number ? 333333333333333333333333333333333333333 
0V 
0 V 

single precision number : 1.70141E+38 


double precision number ? 5# 
single precision number S 5 


double precision number ? 
Ok 
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2 2 2 FH : S&MLttjftSMCgarS. 

2 2 2 FH 

A, F, B, C, D, E, H, L 

7n-f.^/.7JfaAk-j' (FACC) {cf&*rt§*i-CV'*SS 
Tii'O it. 


7 K 


« fle 




S? lit 1 




» convert integer into single precision number - 





0RG 

0B900H 

B900 

2139B9 

START: 

LD 

HL,PROMPT 

B903 

CD30B9 


CALL 

DSPMSG 

B906 

CD925F 


CALL 

5F92H 

B909 

D8 


RET 

C 

B90A 

23 


INC 

HL 

B90B 

CDBC26 


CALL 

26BCH 

B90E 

3ABDEA 

9 

LD 

A,(0EABDH) 

B911 

FE02 


CP 

02H 

B913 

2013 


JR 

NZ,ERROR 

B915 

CD2F22 

9 

CALL 

222FH 

B918 

CDD028 


CALL 

28D0H 

B91B 

E5 

9 

PUSH 

HL 

B91C 

2147B9 


LD 

HL,ANSWER 

B91F 

CD30B9 


CALL 

DSPMSG 

B922 

El 


POP 

HL 

B923 

CD30B9 

9 

CALL 

DSPMSG 

B926 

18D8 


JR 

START 

B928 

2162B9 

ERROR: 

LD 

HL,MSGERR 

B92B 

CD30B9 


CALL 

DSPMSG 

B92E 

18D0 


JR 

START 


; screen editor 
; stop key, return to basic 

; convert into binary code 

; not integer, error 1 ! 

{^convert from integer 
; convert face into character code 


; display single precision number 


display message subroutine 


B930 7E 
B931 A7 
B932 C8 
B933 CD0D3E 
B936 23 
B937 18F7 


DSPMSGtLD A,(HL) 
AND A 
RET Z 
CALL 3E0DH 
INC HL 
JR DSPMSG 


display a character 


; massage area 

B939 0D0A0A69 PROMPT:DEFB 0DH,0AH,0AH,'integer ? '.0 
B93D 6E746567 
B941 6572203F 
B945 2000 

B947 73696E67 ANSUER:DEFB 'single precision number : ',0 

B94B 6C652070 

B94F 72656369 

B953 73696F6E 

B957 206E756D 

B95B 62657220 

B95F 3A2000 
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B962 6E6F7420 MSGERRtDEFB 'not integer U',07H,0 
B966 696E7465 
B96A 67657220 
B96E 21210700 


a=&hb900:cal 1 a 


integer ? 0 

single precision number : 0 

integer ? 1 

single precision number : 1 

integer ? 1# 
not integer !! 

integer ? 1.5 
not integer !! 

integer ? -5000 

single precision number : -5000 

integer ? 33000 
not integer !! 

integer ? 

0k 
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2 2 3 EH : F A C % 


2 2 3 E H 

fac c®f-? <rtt«aa*ft(=9e*r *. 

A, F, B, C, D, E, H, L 

7n(FACC) ft 

if) i1\ 

7n-r^ >7-(FACC) 

if) j-f**, z&mr-? (eabdhs# 

* { 0 3H) fic9fc«^:lii7-i'S4LJt. 

U^-Ff0 0 3 0 H#«3-;H, 7D-f-t>/'T3f 

FACC*<»|fc£*>*£2 2 2 FHSiHlic^lliiLt-t. 
F*r.rma«*fro3BiH#ii: (x7-»i) Lit. 
FACCjy#fSK£»M<7>$£-2 2 4 6 H#ifcUx> h ') Lit. 

F A C C*»ffiF»*a»aw*^iT fc-fr-f C 1if') i t. 


7 KUX 


m m 


u->x? 


s? m 




; - convert face into double precision - 





ORG 

0B900H 

B900 

212AB9 

START: 

LD 

HL,PROMPT 

B903 

CD21B9 


CALL 

DSPMSG 

B906 

CD925F 


CALL 

5F92H 

B909 

D8 


RET 

C 

B90A 

23 


INC 

HL 

B90B 

CDBC26 


CALL 

26BCH 

B90E 

CD3E22 

* 

CALL 

223EH 

B911 

CDD028 


CALL 

28D0H 

B914 

E5 

9 

PUSH 

HL 

B915 

2139B9 


LD 

HL,ANSWER 

B918 

CD21B9 


CALL 

DSPMSG 

B91B 

El 


POP 

HL 

B91C 

CD21B9 

9 

CALL 

DSPMSG 

B91F 

18DF 


JR 

START 



J display message subrout: 

B921 

7E 

DSPMSG 

:LD 

A,(HL) 

B922 

A7 


AND 

A 

B923 

C8 


RET 

Z 

B924 

CD0D3E 


CALL 

3E0DH 

B927 

23 


INC 

HL 

B928 

18F7 


JR 

DSPMSG 


; screen editor 
; stop key, return to basic 

; convert into binary code 

;*convert face into double precisi 
; convert face into character code 


; display double precision number 


; display a character 
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massage area 


B92A 0D0A0A61 PROMPT:DEFB 0DH,0AH,0AH,'a number ? ' ,0 
B92E 206E756D 
B932 62657220 


B936 3F2000 

B939 646F7562 ANSUERjDEFB 
B93D 6C652070 

B941 72656369 

B945 73696F6E 

B949 206E756D 

B94D 62657220 

B951 3A2000 

'double precision number : ,0 


a=&hb900:ca11 a 


a number ? 1 

double precision number : 

1 

a number ? 3 

double precision number : 

3 

a number ? 5.1 

double precision number : 

5.099999904632568 

a number ? 0.00001 
double precision number : 

9.99999883788405D-06 

a number ? 

Ok 

a#=5.1:print a# 
5.099999904632568 

0k 

a#=0.00001Jprint a# 

9.99999883788405D-06 

0k 
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2 2 4 6 H : ***«££»tfitMESSHCSai-S 


2 2 4 6 H 

JtttABSmtttlMtfigffcCKa-*- l. 

A, B, C, H, L 

7 a-T-f >?'• 

i£*itJgS^§|gScfc^&L-Ci£'>) tt. 

EC3DH~EC4 0HSJI^0 0Ht; | ]TU;I, EABDH 

7 7—fi fir# V' i -£/, . 



| -fr>yn- 


convert single pricision into double precision - 




ORG 

0B900H 



B900 

2139B9 

START: LD 

HL,PROMPT 



B903 

CD30B9 

CALL 

DSPMSG 



B906 

CD925F 

CALL 

5F92H 

J screen editor 


B909 

08 

RET 

C 

; stop key, return to basic 


B90A 

23 

INC 

HL 


B90B 

CDBC26 

CALL 

26BCH 

; convert into binary code 


B90E 

3ABDEA 

LD 

A, (OEABDH) 

. 


B911 

FE04 

CP 

04H 

; not single precision, error 

i ; 

B913 

2013 

JR 

NZ,ERROR 

; 


B915 

CD4622 

CALL 

2246H 

{^convert from single precion 

no. 

B918 

CDD028 

CALL 

28D0H 

; convert face into character 

code 

B91B 

E5 

PUSH 

HL 



B91C 

2157B9 

LD 

HL,ANSWER 



B91F 

CD30B9 

CALL 

DSPMSG 



B922 

El 

POP 

HL 



B923 

CD30B9 

CALL 

DSPMSG 

; display double precision number 

B926 

18D8 

JR 

START 



B928 

2172B9 

ERROR: LD 

HL,MSGERR 



B92B 

CD30B9 

CALL 

DSPMSG 



B92E 

18D0 

JR 

START 





> display message subroutine 



B930 

7E 

DSPMSG:LD 

A,(HL) 



B931 

A7 

AND 

A 



B932 

C8 

RET 

Z 



B933 

CD0D3E 

CALL 

3E0DH 

; display a character 


B936 

23 

INC 

HL 


B937 

18F7 

JR 

DSPMSG 





{ massage area 



B939 

0D0A0A73 

PROMPT:DEFB 

0DH,0AH,0AH,'single 

precision number ? ',0 


B93D 

696E676C 




B941 65207072 
B945 65636973 
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B949 696F6E20 
B94D 6E756D62 
B951 6572203F 
B955 2000 

B957 646F7562 ANSWER:DEFB 'double precision number : ',0 

B95B 6C652070 

B95F 72656369 

B963 73696F6E 

B967 206E756D 

B96B 62657220 

B96F 3A2000 

B972 6E6F7420 MSGERR:DEFB 'not single precision !!',07H,0 

B976 73696E67 

B97A 6C652070 

B97E 72656369 

B982 73696F6E 

B986 20212107 

B98A 00 


a=&hb900teal 1 a 


single precision number 
not single precision !! 

single precision number 
double precision number 

single precision number 
not single precision !! 

single precision number 
double precision number 

single precision number 
double precision number 


? 10000 


? 100000 
: 100000 

? 10000000000 


? 123.456 

: 123.4559936523438 

? 5! 

: 5 


single precision number ? 
Ok 

a#=123•456!:print a# 
123.4559936523438 
Ok 


2 2 5 2 H : FACCWl^tf^tlC^tS. 


2 2 5 2 H 

F A C C<7>a4-J*ttJg3!i&Ii£»5£T i. 

A 

7D-fp/' —tEABDHitti;, # 

4 H £ AflT i if >) it. 

T^aAlz-^lcO 4 HJAtlt 2 2 0 2 H #Jt(c x -r > 7" L T 


7FL-7 


H tH 




m m 


ttt. 




-calculate r~2#pi- 




ORG 

0B900H 


B900 

213EB9 

START: LD 

HL,PROMPT 


B903 

CD35B9 

CALL 

DSPMSG 


B906 

CD925F 

CALL 

5F92H 

; screen editor 

B909 

08 

RET 

C 

; stop key, return to basic 

B90A 

23 

INC 

HL 


B90B 

CDBC26 

CALL 

26BCH 

! convert into binary code 

B90E 

CD1422 

CALL 

2214H 

; convert into single precision 

B911 

CDE820 

CALL 

20E8H 

; move from face to register bede 

B914 

CD531F 

CALL 

1F53H 

; multiply r by r 

B917 

1EDB 

LD 

E,ODBH 


B919 

160F 

LD 

D,OFH 


B91B 

0E49 

LD 

C, 49H 

; constant number of 3.14159 

B91D 

0682 

LD 

B.82H 


B91F 

CD5222 

CALL 

2252H 


B922 

CD531F 

CALL 

1F53H 

; multiply r~2 by pi 

B925 

CDD028 

CALL 

28D0H 

; convert into character code 

B928 

E5 

PUSH 

HL 


B929 

214BB9 

LD 

HL,ANSWER 


B92C 

CD35B9 

CALL 

DSPMSG 


B92F 

El 

POP 

HL 


B930 

CD35B9 

CALL 

DSPMSG 

; display result 

B933 

18CB 

JR 

START 




; display message subroutine 


B935 

7E 

DSPMSG:LD 

A, (HL) 


B936 

A7 

AND 

A 


B937 

C8 

RET 

Z 


B938 

CD0D3E 

CALL 

3E0DH 

; display a character 

B93B 

23 

INC 

HL 


B93C 

18F7 

JR 

DSPMSG 




; massage area 


B93E 

0D0A0A72 

PROMPT:DEFB 

ODH,OAH,OAH,'r 

7 ' ,0 

B942 

20202020 




B946 

20203F20 




B94A 

00 




B94B 

725E322A 

ANSWER:DEFB 

'r~2*pi : '.0 


B94F 

7069203A 





B953 2000 
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a=&hb900:ca11 a 


r 

r"2*pi 

^ 0 
: 0 

r 

r~2*pi 

? 0.1 

; .0314159 

r 

r*2*pi 

? 1 

: 3.14159 

r 

r"2*pi 

? 10 

: 314.159 

r 

r~2*pi 

7 1.1 

: 3.80133 

r 

r A 2*pi 

? -5 

: 78.5398 

r 

Ok 

9 
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2 3 2 FH : fi&aftgfrfr&'?. 

2/3 2 F H 

m&ntmbfttco. 

A, F, B, C, D, E, H, L 

#£fr5r''\ if i/xX^HLUJ: t>*7 u—f-j y y • r^aiiz-i' (FAC 
C) (cfelrtL-r t if) J1-. 



m m 




J - subtraction for integer - 





ORG 

0B900H 

B900 

215EB9 

START: 

LD 

HL.PRMPT1 

B903 

CD55B9 


CALL 

DSPMSG 

B906 

CD925F 


CALL 

5F92H 

B909 

D8 


RET 

C 

B90A 

23 


INC 

HL 

B90B 

CD43B9 


CALL 

CLRFAC 

B90E 

CDC826 


CALL 

26C8H 

B911 

CDA021 


CALL 

21A0H 

B914 

ED5B41EC 


LD 

DE,(0EC41H) 

B918 

05 


PUSH 

DE 

B919 

216EB9 


LD 

HL,PRMPT2 

B91C 

CD55B9 


CALL 

DSPMSG 

B91F 

CD925F 


CALL 

5F92H 

B922 

23 


INC 

HL 

B923 

CD43B9 


CALL 

CLRFAC 

B926 

CDC826 


CALL 

26C8H 

B929 

CDA021 


CALL 

21A0H 

B92C 

2A41EC 


LD 

HL,(0EC41H) 

B92F 

D1 


POP 

DE 

B930 

CD2F23 


CALL 

232FH 

B933 

CDD028 


CALL 

28D0H 

B936 

E5 


PUSH 

HL 

B937 

217BB9 


LD 

HL,ANSWER 

B93A 

CD55B9 


CALL 

DSPMSG 

B93D 

El 


POP 

HL 

B93E 

CD55B9 


CALL 

DSPMSG 

B941 

18BD 


JR 

START 


; clear floating point 


B943 

E5 

CLRFAC:PUSH 

HL 

B944 

210000 

LD 

HL,0 

B947 

223DEC 

LD 

(0EC3DH),HL 

B94A 

223FEC 

LD 

(0EC3FH),HL 

B94D 

2241EC 

LD 

(0EC41H),HL 

B950 

2243EC 

LD 

(0EC43H),HL 

B953 

El 

POP 

HL 

B954 

C9 

RET 



; screen editor 
; stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
; convert into integer 
; store 1st argument into reg-de 


; screen editor 

; clear floating point accumulator 

• convert into binary code 
; convert into integer 

; set 2nd argument into reg-hl 

• set 1st argument into reg-de 
;^subtraction for integer 

; convert into character code 


» display result 


ilator subroutine 


58 











diaplay message subroutine 


B955 

7E 

DSPMSGjLD 

A, (HL) 

B956 

A7 

AND 

A 

B957 

C8 

RET 

Z 

B958 

CD0D3E 

CALL 

3E0DH 

B95B 

23 

INC 

HL 

B95C 

18F7 

JR 

DSPMSG 


message area 


B95E 0D0A0A20 PRMPTlsDEFB 0DH,0AH,0AH,' x\ 
B962 20202020 
B966 78252020 
B96A 203F2000 

B96E 20202020 PRMPT2:DEFB ' y* ? \0 
B972 20792520 
B976 20203F20 
B97A 00 

B97B 7825202D ANSWER:DEFB ' x* - yV. — > ',0 
B97F 20792520 
B983 2D2D3E20 
B987 00 


? ',0 


a=&hb900:ca 1 1 a 


x* ? 123 

yV. ? 23 

x\ ~ y\ —> 100 

x*/. ? 123 

yV. ? 0.4 

x\ ~ y\ —> 123 

x* 7 123 

y7. ? 0.4 

x* - yV. — > 123 

x* ? 123 

y% 7 0.5 

x\ ~ y \ —> 122 

x% ? 

Ok 


character 
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2 3 3 a h : -5. 

2 3 3 A H 

A, F, B, C, D, E, H, L 

u :j x 9 D E OffiF-f# 1 6 t' -y h ®?|& t U 7 X 9 H L 1 6 

t*-y h SSifccofig-CSnSt-^Tir^, fD?rWi?x^HLi}J:{/VD — -f ^ >?' • r^f 
J.M.U — ? (FACC) icfelftLT t t'O £ t. 

TVD(FACC) ^<7)^tc(± 

u ^ x ? H L (C-5-*. £-±/i' 


T V 1/X 


# m 




ffl sft 


if->7'n> 


- addition for integer - 

ORG 0B900H 


B900 

215EB9 

START: LD 

HL.PRMPT1 

B903 

CD55B9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD43B9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

CDA021 

CALL 

21A0H 

B914 

ED5B41EC 

LD 

DE,(0EC41H) 

B918 

D5 

PUSH 

DE 

B919 

216EB9 

LD 

HL,PRMPT2 

B91C 

CD55B9 

CALL 

DSPMSG 

B91F 

CD925F 

CALL 

5F92H 

B922 

23 

INC 

HL 

B923 

CD43B9 

CALL 

CLRFAC 

B926 

CDC826 

CALL 

26C8H 

B929 

CDA021 

CALL 

21A0H 

B92C 

2A41EC 

LD 

HL,(0EC41H) 

B92F 

D1 

POP 

DE 

B930 

CD3A23 

CALL 

233AH 

B933 

CDD028 

CALL 

28D0H 

B936 

E5 

PUSH 

HL 

B937 

217BB9 

LD 

HL,ANSWER 

B93A 

CD55B9 

CALL 

DSPMSG 

B93D 

El 

POP 

HL 

B93E 

CD55B9 

CALL 

DSPMSG 

B941 

18BD 

JR 

START 



• clear floating point a 

B943 

E5 

CLRFAC:PUSH 

HL 

B944 

210000 

LD 

HL, 0 

B947 

223DEC 

LD 

(0EC3DH),HL 

B94A 

223FEC 

LD 

(0EC3FH),HL 


screen editor 

stop key, return to basic 

clear floating point accumulator 
convert into binary code 
convert into integer 
store 1st argument into reg-de 


{ screen editor 

; clear floating point accumulator 
; convert into binary code 
J convert into integer 
; set 2nd argument into reg-hl 

* set 1st argument into reg-de 

{^addition for integer 

; convert into character code 


display result 
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B94D 

2241EC 

LD 

(0EC41H),HL 

B950 

2243EC 

LD 

(0EC43H),HL 

B953 

El 

POP 

HL 

B954 

C9 

5 

RET 



display message subroutine 


B955 7E DSPMSG:LD A.(HL) 

B956 A7 AND A 

B957 C8 RET Z 

B958 CD0D3E CALL 3E0DH 

B95B 23 INC HL 

B95C 18F7 JR DSPMSG 

; message area 

B95E 0D0A0A20 PRMPTlsDEFB 0DH,0AH,0AH»' 
B962 20202020 
B966 78252020 

B96A 203F2000 , „ , n 

B96E 20202020 PRMPT2:DEFB y4 ? .0 

B972 20792520 
B976 20203F20 

B97A 00 , . . . , 

B97B 7825202B ANSWER: DEFB x\ + y4 ~> .0 

B97F 20792520 
B983 2D2D3E20 
B987 00 


display a character 


x* ? ',0 


a=&hb900:cal1 a 




x\ 

? 

20 



v'4 

? 

30 

x m 4 

+ 

y'4 

— > 

50 



x% 

? 

500 



y'4 

7 

-600 

x'4 

+ 

y\ 

— > 

-100 



x\ 

7 

10 



y'4 

7 

in 

o 

xy. 

+ 

y* 

— > 

11 



x'4 

7 

300 



y'4 

? 


x'4 

+ 

y'4 

— > 

300 



x% 

7 


Ok 
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2 3 5 AH : g»0>S*£?Ti-j 


2 3 5 A H 

A, F, B, C, D, E, H, L 

> X ^ D E Olf-SHt 1 6 h"7 !■ ISifc tV : JX9 H L <7)|f-§•# 1 6 
h 'x h S£&x>PffI'C^J¥£ : fT&'v>, filSrWv'X^HL LT & i* 0 i ~f. 
axttikirtakmk ixmi^h-m^muzi^zn, i 

~ x -~ 7u ~ ^ y ^ ' 7 >3 r^--AU — 9 ( F A C C ) (CjS$ ft £ I"#'*, ZWijk&lZlt 

is i? x?HLlz-!§-£t 3 titzW±K£M : $: : ftl : j£-£/i. 





: multiplication for integer - 


ORG 0B900H 


B900 215EB9 

START: LD 

HL,PRMPT1 

B903 CD55B9 

CALL 

DSPMSG 

B906 CD925F 

CALL 

5F92H 

B909 D8 

RET 

c 

B90A 23 

INC 

HL 

B90B CD43B9 

CALL 

CLRFAC 

B90E CDC826 

CALL 

26C8H 

B911 CDA021 

CALL 

21A0H 

B914 ED5B41EC 

LD 

DE,(0EC41H) 

B918 D5 

PUSH 

DE 

B919 216EB9 

LD 

HL,PRMPT2 

B91C CD55B9 

CALL 

DSPMSG 

B91F CD925F 

CALL 

5F92H 

B922 23 

INC 

HL 

B923 CD43B9 

CALL 

CLRFAC 

B926 CDC826 

CALL 

26C8H 

B929 CDA021 

CALL 

21A0H 

B92C 2A41EC 

LD 

HL,(0EC41H) 

B92F D1 

POP 

DE 

B930 CD5A23 

CALL 

235AH 

B933 CDD028 

CALL 

28D0H 

B936 E5 

PUSH 

HL 

B937 217BB9 

LD 

HL,ANSWER 

B93A CD55B9 

CALL 

DSPMSG 

B93D El 

POP 

HL 

B93E CD55B9 

CALL 

DSPMSG 

B941 18BD 

JR 

START 


; clear floating point a 

B943 E5 

CLRFACjPUSH 

HL 

B944 210000 

LD 

HL,0 

B947 223DEC 

LD 

(0EC3DH),HL 

B94A 223FEC 

LD 

(0EC3FH),HL 

B94D 2241EC 

LD 

(0EC41H),HL 

B950 2243EC 

LD 

(0EC43H),HL 

B953 El 

POP 

HL 


J screen editor 

• stop key, return to basic 

• clear floating point accumulator 

* convert into binary code 
5 convert into integer 

♦ store 1st argument into reg-de 


, screen editor 

! clear floating point accumulator 
; convert into binary code 
; convert into integer 
* set 2nd argument into reg-hl 

; set 1st argument into reg-de 

!*mu1tip1ication for integer 

{ convert into character code 


; display result 


umulator subroutine 
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B954 C9 


RET 


display message subroutine 


B955 

7E 

DSPMSG:LD 

A,(HL) 

B956 

A7 

AND 

A 

B957 

C8 

RET 

Z 

B958 

CD0D3E 

CALL 

3E0DH 

B95B 

23 

INC 

HL 

B95C 

18F7 

JR 

DSPMSG 



; message area 

B95E 

0D0A0A20 

PRMPT1:DEFB 

ODH,OAH, ( 

B962 

20202020 



B966 

78252020 



B96A 

203F2000 



B96E 

20202020 

PRMPT2:DEFB 

yX 

B972 

20792520 



B976 

20203F20 



B97A 

00 



B97B 

7825202A 

ANSWER:DEFB 

' xX * yX 

B97F 

20792520 



B983 

2D2D3E20 



B987 

00 




{ display 


xX 


? ' ,0 


a=&hb900:ca11 a 




xX 

? 

1000 



yX 

? 

123 

xX 

* 

yX 

--> 

123000 



xX 

? 

123.456 



yX 

? 

789 

xX 

* 

yX 

— > 

97047 



xX 

? 

-500 



yX 

? 

50 

xX 

* 

yX 

— > 

-25000 



xX 

? 

1000 



yX 

? 

60000 


Ouerf 1 oui 
Ok 


character 
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2 3 abh : 


2 3 A BH 

S&<7>|&3J£* *T*b. 

A, F, B, C, D, E, H, L 

U : J X 9 D E 1 6 t* -y h m$L tV-JX9 H L 1 6 

f'v ig^i/yX^HLl:, MJi/y'xfDEl;, 

L t & ir •) i 1\ 

^ ^ L- > 0 0 0 0 H (-fe'o ) T'i> o <D 

■^."Division by zero"(/0 Error) x. y—fztb Nss - B A S I C£ 
tzii HMIS-t — ^<7)|l]@lTI-A') £t. 



tV/Ji/ | 


division for integer - 


ORG 0B900H 


B900 

215EB9 

START: LD 

HL.PRMPT1 

B903 

CD55B9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD43B9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

CDA021 

CALL 

21A0H 

B914 

ED5B41EC 

LD 

DE,(0EC41H) 

B918 

D5 

PUSH 

DE 

B919 

216EB9 

LD 

HL,PRMPT2 

B91C 

CD55B9 

CALL 

DSPMSG 

B91F 

CD925F 

CALL 

5F92H 

B922 

23 

INC 

HL 

B923 

CD43B9 

CALL 

CLRFAC 

B926 

CDC826 

CALL 

26C8H 

B929 

CDA021 

CALL 

21A0H 

B92C 

2A41EC 

LD 

HL,(0EC41H) 

B92F 

D1 

POP 

DE 

B930 

CDAB23 

$ 

CALL 

23ABH 

B933 

CDD028 

CALL 

28D0H 

B936 

E5 

PUSH 

HL 

B937 

217BB9 

LD 

HL,ANSUER 

B93A 

CD55B9 

CALL 

DSPMSG 

B93D 

El 

POP 

HL 

B93E 

CD55B9 

CALL 

DSPMSG 

B941 

18BD 

JR 

START 



, clear floating point t 

B943 

E5 

CLRFAC:PUSH 

HL 

B944 

210000 

LD 

HL, 0 

B947 

223DEC 

LD 

(0EC3DH),HL 

B94A 

223FEC 

LD 

(0EC3FH),HL 


; screen editor 
♦ stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
; convert into integer 
; store 1st argument into reg-de 


; screen editor 

5 clear floating point accumulator 
! convert into binary code 
t convert into integer 
J set 2nd argument into reg-hl 

* set 1st argument into reg-de 

{^division for integer 

; convert into character code 


* display result 


umu1ator subroutine 
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B94D 

2241EC 

LD 

(0EC41H),HL 

B950 

2243EC 

LD 

(0EC43H),HL 

B953 

El 

POP 

HL 

B954 

C9 

RET 



display message subroutine 


B955 

7E 

DSPMSGtLD 

A.(HL) 

B956 

A7 

AND 

A 

B957 

C8 

RET 

Z 

B958 

CD0D3E 

CALL 

3E0DH 

B95B 

23 

INC 

HL 

B95C 

18F7 

JR 

DSPMSG 



; message area 


B95E 0D0A0A20 PRMPTlsDEFB 0DH.0AH.0AH/ x'4 ? ',0 

B962 20202020 
B966 78252020 
B96A 203F2000 

B96E 20202020 PRMPT2:DEFB ' y\ ? ' .0 
B972 20792520 
B976 20203F20 
B97A 00 

B97B 7825202F ANSWER:DEFB ' x* / y\ — > ',0 
B97F 20792520 
B983 2D2D3E20 
B987 00 


a=&hb900:ca11 a 




x*4 

? 

20 



y'4 

? 

6 

x\ 

/ 

y't 

--> 

3 



x*4 

? 

23.4S 



y‘4 

? 

10 

x'4 

/ 

y'< 

--> 

2 



x*4 

? 

-500 



y'4 

? 

20 

x*4 

/ 

y'4 

— > 

-25 



x*4 

? 

100 



y’4 

? 

.1 


Division by zero 
Ok 


character 
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2 3 F7 H : fS 


2 3 F 7 H 

FACCCfctt $ 2.. 

A, F, B, C, D, E, H, L 

7D -i-0 7 ' TJfiAW-^(FACC)t|&«SirCV' & 1 6 
t*v (NEGATION) L, W > X ? H L j3 J: t/ 

7n-f^7-7^Ai/-7 (facc) Izm&mt ixtmirb?o t 

t. 

Tztil, 7 o—r -f >?'• 

8000H (-32768) T'& o ?zt£&lzli, fr-Sf-Sfe (NEGATION) 
X>M^ { !&ifc3y £ 7 d- L"CL J 7 tzsb, ( 3 2 7 6 8 ) (±7 

o-f 4 >7 • 7*iAW-y(FACC)KJM*£<o|S&i 

7 n — >/’7ifiAI/-7(EC4 1H-EC42 H#i(fe) 

Ot'-7?:WxX7HLI:d- Kf£ 2 3 EAH#IifelCi> y ij Li1\ 



| •» > y;u | 


; - negation for integer - 




ORG 

0B900H 

B900 

2142B9 

START: LD 

HL,PROMPT 

B903 

CD39B9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD27B9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

CDA021 

CALL 

21A0H 

B914 

CDF723 

CALL 

23F7H 

B917 

CDD028 

CALL 

28D0H 

B91A 

E5 

PUSH 

HL 

B91B 

214EB9 

LD 

HL,ANSWER 

B91E 

CD39B9 

CALL 

DSPMSG 

B921 

El 

POP 

HL 

B922 

CD39B9 

CALL 

DSPMSG 

B925 

18D9 

JR 

START 



; clear floating point 

B927 

E5 

CLRFAC:PUSH 

HL 

B928 

210000 

LD 

HL, 0 

B92B 

223DEC 

LD 

(0EC3DH),HL 

B92E 

223FEC 

LD 

(0EC3FH),HL 

B931 

2241EC 

LD 

< 0EC41H),HL 

B934 

2243EC 

LD 

(0EC43H),HL 

B937 

El 

POP 

HL 

B938 

C9 

RET 



J screen editor 
• stop key, return to basic 

5 clear floating point accumulator 
; convert into binary code 
; convert into integer 

{^negation for integer in facc 

» convert into character code 

; display result 

1ator subroutine 
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display message subroutine 


B939 7E 
B93A A7 
B93B C8 


DSPMSG:LD A,(HL) 


AND A 
RET Z 


B93C CD0D3E 
B93F 23 
B940 18F7 


CALL 3E0DH 
INC HL 


display a character 


JR DSPMSG 


message area 


B942 0D0A0A20 PROMPTsDEFB 0DH,0AH,0AH,' x* ? ',0 
B946 78252020 
B94A 203F2000 

B94E 2D782520 ANSWER:DEFB '-x* —> ',0 
B952 2D2D3E20 
B956 00 


a=&hb900 s call a 


x* ? &h8000 
-x* —> 32768 

xJj ? 1234 
-x* —> -1234 

x* ? -22222 
-x* —> 22222 

x* ? 0.005 

-x* —> 0 

x*/. 7 5.5 

-x*/. —> -6 

xJi ? 

Ok 
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2 3 FAH : 


2 3 FAH 

»»«>»#*«<£-r a. 

A, F, B, C, D, E, H, L 

WxX?HLfcfe$i£;flTV'!> 1 6 h* -y h 
(NEGATION) L, V-JX9 H L ii <fc XI~7 n — t 4 y 9' • 
(FACC)tc^ifeSat LTfeiftLti it. 

fcfc'U i'X ;? H L (c § ft TW^r'--8 0 0 0 H (- 32768 
) -C* o tzigi&lztt, (NEGATION) '<-7 n 

-LTLJ 6 fc46, (32768) |± 7 n-r -f > ?* • 7*i AV-; 

(FACC) LT*&fft£ft£1\ 



•frvx’A- | 




»- 

negat: 

ion for integer - 




ORG 

0B900H 

B900 

2145B9 

START: 

LD 

HL,PROMPT 

B903 

CD3CB9 


CALL 

DSPMSG 

B906 

CD925F 


CALL 

5F92H 

B909 

D8 


RET 

C 

B90A 

23 


INC 

HL 

B90B 

CD2AB9 


CALL 

CLRFAC 

B90E 

CDC826 


CALL 

26C8H 

B911 

CDA021 


CALL 

21A0H 

B914 

2A41EC 


LD 

HL,(0EC41H) 

B917 

CDFA23 


CALL 

23FAH 

B91A 

CDD028 

* 

CALL 

28D0H 

B91D 

E5 


PUSH 

HL 

B91E 

2151B9 


LD 

HL,ANSWER 

B921 

CD3CB9 


CALL 

DSPMSG 

B924 

El 


POP 

HL 

B925 

CD3CB9 


CALL 

DSPMSG 

B928 

18D6 


JR 

START 



» clear floating point accumuli 

B92A 

E5 

CLRFAC 

: PUSH 

HL 

B92B 

210000 


LD 

HL, 0 

B92E 

223DEC 


LD 

< 0EC3DH),HL 

B931 

223FEC 


LD 

(0EC3FH),HL 

B934 

2241EC 


LD 

(0EC41H),HL 

B937 

2243EC 


LD 

(0EC43H),HL 

B93A 

El 


POP 

HL 

B93B 

C9 


RET 




; disp 

lay message subroutine 

B93C 

7E 

DSPMSG 

:LD 

A,(HL) 

B93D 

A7 


AND 

A 

B93E 

C8 


RET 

Z 


; screen editor 
; stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
; convert into integer 
; set an argument in register hi 

{^negation for integer in register 

; convert into character code 


; display result 
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B93F CD0D3E 
B942 23 
B943 18F7 


CALL 3E0DH 
INC HL 
JR DSPMSG 


display a character 


message area 


B945 0D0A0A20 PROMPT:DEFB 0DH.0AH.0AH,' x* ? ' ,0 
B949 78252020 
B94D 203F2000 

B951 2D782520 ANSUIER:DEFB '-x* --> ',0 
B955 2D2D3E20 
B959 00 


a=&hb900:cal1 a 


x* ? &h8000 
-x* —> 32768 

x* ? -22222 
-x* --> 22222 

x* ? 0.05 

-x* —> 0 

x* ?0.5 

-x* —> -1 

x* ?0.4 

-x* —> 0 


x* 7 33333 
Overflou 
Ok 



2 4 0 CH : SftaKfttfrttl'M 


2 4 0 CH 

»»W|!jE*4-ff4Lx*j3St/ r #«,5. 

A, F, B, C, D, E, H, L 

l 6 h‘y F S2$c £fifclfc i; w i^x y D E £> 

itf7D-f^/.T4aAu-; (facc) ic^iflL-rt o i ft. 

fzfiL, is V * 7 HLlz-5-z.&Pfc%cfr', 0 0 0 0 H (-b'o) 

Division by zero”(/0 Error) J. 7— N 88 - BASICS tz 

— ^cOftllffllTfcA') it. 


7 KU'X 


S ag 




* IK 




. - calculate remainder - 


ORG 0B900H 


B900 

215EB9 

START: LD 

HL.PRMPT1 

B903 

CD55B9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD43B9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

CDA021 

CALL 

21A0H 

B914 

ED5B41EC 

LD 

DE,(0EC41H) 

B918 

D5 

PUSH 

DE 

B919 

2170B9 

LD 

HL,PRMPT2 

B91C 

CD55B9 

CALL 

DSPMSG 

B91F 

CD925F 

CALL 

5F92H 

B922 

23 

INC 

HL 

B923 

CD43B9 

CALL 

CLRFAC 

B926 

CDC826 

CALL 

26C8H 

B929 

CDA021 

CALL 

21A0H 

B92C 

2A41EC 

LD 

HL,(0EC41H) 

B92F 

D1 

POP 

DE 

B930 

CD0C24 

CALL 

240CH 

B933 

CDD028 

CALL 

28D0H 

B936 

E? 

PUSH 

HL 

B937 

7i7FB9 

LD 

HL,ANSWER 

B93A 

CD55B9 

CALL 

DSPMSG 

B93D 

El 

POP 

HL 

B93E 

CD55B9 

CALL 

DSPMSG 

B941 

18BD 

JR 

START 



{ clear floating point t 

B943 

E5 

CLRFACjPUSH 

HL 

B944 

210000 

LD 

HL, 0 

B947 

223DEC 

LD 

(0EC3DH),HL 

B94A 

223FEC 

LD 

(0EC3FH),HL 


J screen editor 
; stop key, return to basic 

; clear floating point accumulator 

• convert into binary code 

• convert into integer 

; store 1st argument into reg-de 


J screen editor 

• clear floating point accumulator 
; convert into binary code 

; convert into integer 
; set 2nd argument•into reg-hl 

• set 1st argument into reg-de 
{^calculate remainder 

• convert into character code 


» display result 


lator subroutine 
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B94D 

2241EC 

LD 

< 0EC41H),HL 

B950 

2243EC 

LD 

(0EC43H),HL 

B953 

El 

POP 

HL 

B954 

C9 

RET 




; display message subroi 

B955 

7E 

DSPMSG:LD 

A,(HL) 

B956 

A7 

AND 

A 

B957 

C8 

RET 

Z 

B958 

CD0D3E 

CALL 

3E0DH 

B95B 

23 

INC 

HL 

B95C 

18F7 

JR 

DSPMSG 



; message area 

B95E 

0D0A0A20 

PRMPT1:DEFB 

0DH,0AH,0AH, 

B962 

20202020 



B966 

20207825 



B96A 

2020203F 



B96E 

2000 



B970 

20202020 

PRMPT2:DEFB 

y?s 

B974 

20202079 



B978 

25202020 



B97C 

3F2000 



B97F 

72656D61 

ANSWER:DEFB 

'remainder - 

B983 

696E6465 



B987 

72202D2D 



B98B 

3E2000 




• display 


x% ? ' , 


a=&hb900 Jcal1 a 


x* ? 10 
y* ? 3 

remainder —> 1 

x* ? 1000 
y% ? 501 
remainder —> 499 

x* ? 10 

y* ? -3 

remainder —> 1 

x*/. ? 1000 

y* ? -501 
remainder —> 499 

x5i ? 


character 


Ok 




2 4 1 dh : 


2 4 1 DH 

\m& asa®****?* ^. 

A, F, B, C, D, E, H, L 

7d-t^/'T^j.AW-;(EC 3DH~EC4 4 H#tt) 

u -rr • 7u—fj >?'• 

-9 (EC4 AH-EC 5 1 H#Jtb) LT 

7d- f 4 >?"• T^fiAV-i i'O £1\ 





; - subtraction for double 




0RG 

0B900H 

B900 

2177B9 

START: LD 

HL.PRMPT1 

B903 

CD6EB9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD5CB9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

CD3E22 

CALL 

223EH 

B914 

213DEC 

LD 

HL.0EC3DH 

B917 

11A1B9 

LD 

DE,BUFFER 

B91A 

010800 

LD 

BC, 8 

B91D 

EDBO 

LDIR 


B91F 

2187B9 

LD 

HL,PRMPT2 

B922 

CD6EB9 

CALL 

DSPMSG 

B925 

CD925F 

CALL 

5F92H 

B928 

08 

RET 

C 

B929 

23 

INC 

HL 

B92A 

CD5CB9 

CALL 

CLRFAC 

B92D 

CDC826 

CALL 

26C8H 

B930 

CD3E22 

CALL 

223EH 

B933 

213DEC 

LD 

HL,0EC3DH 

B936 

114AEC 

LD 

DE.0EC4AH 

B939 

010800 

LD 

BC, 8 

B93C 

EDBO 

LDIR 


B93E 

21A1B9 

LD 

HL,BUFFER 

B941 

113DEC 

LD 

DE,0EC3DH 

B944 

010800 

LD 

BC, 8 

B947 

EDBO 

LDIR 


B949 

CD1D24 

CALL 

241DH 

B94C 

CDD028 

CALL 

28D0H 

B94F 

E5 

PUSH 

HL 

B950 

2194B9 

LD 

HL,ANSUER 

B953 

CD6EB9 

CALL 

DSPMSG 

B956 

El 

POP 

HL 

B957 

CD6EB9 

CALL 

DSPMSG 

B95A 

18A4 

JR 

START 


precision - 


; screen editor 
; stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
; convert into double precision 


; store 1st argument into buffer 


; screen editor 
; stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
; convert into double precision 


; set 2nd argument into sub-facc 


set 1st argument into face 


;^subtraction for double precision 
; convert into character code 


• display result 
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clear floating point accumulator subroutine 


B95C 

E5 

CLRFAC:PUSH 

HL 

B95D 

210000 

LD 

HL, 0 

B960 

223DEC 

LD 

(0EC3DH),HL 

B963 

223FEC 

LD 

(0EC3FH),HL 

B966 

2241EC 

LD 

(0EC41H),HL 

B969 

2243EC 

LD 

(0EC43H), HL 

B96C 

El 

POP 

HL 

B96D 

C9 

RET 



display message subroutine 


B96E 

7E 

DSPMSG:LD 

A,(HL) 

B96F 

A7 

AND 

A 

B970 

C8 

RET 

Z 

B971 

CD0D3E 

CALL 

3E0DH 

B974 

23 

INC 

HL 

B975 

18F7 

JR 

DSPMSG 



; massage area 

B977 

0D0A0A20 

PRMPT1:DEFB 

0DH,0AH,0AH, 

B97B 

20202020 



B97F 

78232020 



B983 

203F2000 



B987 

20202020 

PRMPT2:DEFB 

y# ? 

B98B 

20792320 



B98F 

20203F20 



B993 

00 



B994 

7823202D 

ANSWER:DEFB 

'x# - y# —> 

B998 

20792320 



B99C 

2D2D3E20 



B9A0 

00 




; display a character 


x# 


? ',0 


; buffer for the first argument 
B9A1 BUFFERjDEFS 8 


a=&hb900:cal1 a 


x# ? 1 

y# ? 100000000000000 

x# - y# —> -99999999999999 

x# ? 300 

y# ? 1.5 

X# - y# —> 298.5 

x# ? 10000000000000000000000000000000000 

yH 7 300000000000000000000000000000000000000 

ov 

X# - y# --> -1.701311834604693D+38 

x# ? 

y# ? 

Ok 


73 






2 4 2 4 h : imjtmm&ntmbfttj: ?. 


7KI/X | 2 4 2 4 H 


I A, F, B, C, D, E, H, L 


®_®[] 7n-T^>^-T^iAU-^ (EC3DH~EC44HSi ) 

L, t7.7D-f 4 • T^ro-AW 

(EC 4 AH-EC 5 1 H#t&) izfatoZtltifettfeQng&zijn&t lx 
7n—f4 7^iAW-^(cfO^^|flL-Ct it. 


•9->y;u 


- addition for double 




0RG 

0B900H 

B900 

2177B9 

START: LD 

HL.PRMPT1 

B903 

CD6EB9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

08 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD5CB9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

CD3E22 

CALL 

223EH 

B914 

213DEC 

LD 

HL,0EC3DH 

B917 

11A1B9 

LD 

DE,BUFFER 

B91A 

010800 

LD 

BC ,8 

B91D 

EDB0 

LDIR 


B91F 

2187B9 

LD 

HL.PRMPT2 

B922 

CD6EB9 

CALL 

DSPMSG 

B925 

CD925F 

CALL 

5F92H 

B928 

D8 

RET 

C 

B929 

23 

INC 

HL 

B92A 

CD5CB9 

CALL 

CLRFAC 

B92D 

CDC826 

CALL 

26C8H 

B930 

CD3E22 

CALL 

223EH 

B933 

213DEC 

LD 

HL,0EC3DH 

B936 

114AEC 

LD 

DE,0EC4AH 

B939 

010800 

LD 

BC,8 

B93C 

EDB0 

LDIR 


B93E 

21A1B9 

LD 

HL,BUFFER 

B941 

113DEC 

LD 

DE,0EC3DH 

B944 

010800 

LD 

BC, 8 

B947 

EDB0 

LDIR 


B949 

CD2424 

CALL 

2424H 

B94C 

CDD028 

CALL 

28D0H 

B94F 

E5 

PUSH 

HL 

B950 

2194B9 

LD 

HL,ANSWER 

B953 

CD6EB9 

CALL 

DSPMSG 

B956 

El 

POP 

HL 

B957 

CD6EB9 

CALL 

DSPMSG 

B95A 

18A4 

JR 

START 


precision - 


; screen editor 
J stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
* convert into double precision 


J screen editor 
; stop key, return to basic 

5 clear floating point accumulator 
; convert into binary code 
• convert into double precision 


;*addition 

; convert into character code 


; display result 
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1 ear floating point accumulator subroutine 


B95C 

E5 CLRFAC:PUSH 

HL 

B95D 

210000 

LD 

HL, 0 

B960 

223DEC 

LD 

(0EC3DH),HL 

B963 

223FEC 

LD 

(0EC3FH), HL 

B966 

2241EC 

LD 

(0EC41H),HL 

B969 

2243EC 

LD 

(0EC43H),HL 

B96C 

El 

POP 

HL 

B96D 

C9 

RET 




display message subroi 

B96E 

7E C 

)SPMSG:LD 

A,(HL > 

B96F 

A7 

AND 

A 

B970 

C8 

RET 

Z 

B971 

CD0D3E 

CALL 

3E0DH 

B974 

23 

INC 

HL 

B975 

18F7 

JR 

DSPMSG 



massage area 

B977 

0D0A0A20 f 

*RMPT1:DEFB 

0DH,0AH,0AH, 

B97B 

20202020 



B97F 

78232020 



B983 

203F2000 



B987 

20202020 PRMPT2:DEFB 

' yH ' 

B98B 

20792320 



B98F 

20203F20 



B993 

00 



B994 

7823202B ANSWER:DEFB 

'xH + yH — 

B998 

20792320 



B99C 

2D2D3E20 



B9A0 

00 




display a character 


x# 


' ,0 


' ,0 


buffer for the first argument 


B9A1 


BUFFER:DEFS 8 


a=&hb900:ca11 a 


X# 

? 

12345678 


? 

1234567800000000 

X# + y# 

— > 

1234567812345678 

xH 

? 

1 

y* 

7 

2 

X# + y* 

-> 

3 

xH 

7 

0.000000000001 

y# 

7 

0.000000000001 

xM + y# 

— > 

.000000000002 

X# 

7 

0.0000000000000000000000000000000000001 

yH 

7 

0 

x# + yH 

— > 

ID-37 

xH 

7 


0k 
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2 5 5 3 H : 


2 5 5 3 H 

-9 . 

A, F, 6j C, D, E, H, L 

7o—f-f EC 3 DH-EC4 4 H#i4)(C 

L, Hfr • 7 d-t-( >?" • 7*j.AU- 
? (EC4AH-EC51 H#ift) v Cl&ffl$n/ifS#IJ*l!<7)*fS!cSr*«ri LT* 
#£fr$:v\ 7n-f -f >/• it. 



-t 


multiplication for 




0RG 

0B900H 

B900 

2177B9 

START: LD 

HL,PRMPT1 

B903 

CD6EB9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD5CB9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

CD3E22 

CALL 

223EH 

B914 

213DEC 

LD 

HL,0EC3DH 

B917 

11A1B9 

LD 

DE,BUFFER 

B91A 

010800 

LD 

BC, 8 

B91D 

EDBO 

LDIR 


B91F 

2187B9 

LD 

HL.PRMPT2 

B922 

CD6EB9 

CALL 

DSPMSG 

B925 

CD925F 

CALL 

5F92H 

B928 

D8 

RET 

C 

B929 

23 

INC 

HL 

B92A 

CD5CB9 

CALL 

CLRFAC 

B92D 

CDC826 

CALL 

26C8H 

B930 

CD3E22 

CALL 

223EH 

B933 

213DEC 

LD 

HL,0EC3DH 

B936 

114AEC 

LD 

DE.0EC4AH 

B939 

010800 

LD 

BC, 8 

B93C 

EDBO 

LDIR 


B93E 

21A1B9 

LD 

HL,BUFFER 

B941 

113DEC 

LD 

DE,0EC3DH 

B944 

010800 

LD 

BC, 8 

B947 

EDBO 

LDIR 


B949 

CD5325 

CALL 

2553H 

B94C 

CDD028 

CALL 

28D0H 

B94F 

E5 

PUSH 

HL 

B950 

2194B9 

LD 

HL,ANSWER 

B953 

CD6EB9 

CALL 

DSPMSG 

B956 

El 

POP 

HL 

B957 

CD6EB9 

CALL 

DSPMSG 

B95A 

18A4 

JR 

START 


double precision - 


; screen editor 
; stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
; convert into double precision 


; store 1st argument into buffer 


; screen editor 
; stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
; convert into double precision 

; set 2nd argument into sub-facc 


set 1st argument into face 


;*multipiication 
; convert into character code 


; display result 
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clear floating point accumulator subroutine 


B95C 

E5 

CLRFACjPUSH 

HL 

B95D 

210000 

LD 

HL ,0 

B960 

223DEC 

LD 

(0EC3DH), HL 

B963 

223FEC 

LD 

(0EC3FH), HL 

B966 

2241EC 

LD 

(0EC41H),HL 

B969 

2243EC 

LD 

(0EC43H),HL 

B96C 

El 

POP 

HL 

B96D 

C9 

RET 



display message subroutine 


B96E 

7E 

DSPMSG:LD 

A,(HL) 

B96F 

A7 

AND 

A 

B970 

C8 

RET 

Z 

B971 

CD0D3E 

CALL 

3E0DH 

B974 

23 

INC 

HL 

B975 

18F7 

JR 

DSPMSG 


; massage area 

B977 0D0A0A20 PRMPT1:DEFB 0DH,0AH,0AH,' 

B97B 20202020 
B97F 78232020 

B983 203F2000 , ^ _ , n 

B987 20202020 PRMPT2:DEFB y# ? 

B98B 20792320 
B98F 20203F20 

B993 00 / tt ii v ^ n 

B994 7823202A ANSWERsDEFB x# * y# —> .0 

B998 20792320 
B99C 2D2D3E20 
B9A0 00 

; buffer for the first argument 
B9A1 BUFFER:DEFS 8 


a=&hb900:cal1 a 


X# 

? 

10000000 

y# 

? 

10000000 

x# * y# 

--> 

100000000000000 

X# 

? 

0.0001234567890 

y# 

? 

1000000000000 

x# * y# 

— > 

123456789 

X# 

7 

3 

y# 

? 

-0.5 

x# * y# 

— > 

-1.5 

X# 

? 

0 

y# 

7 

0 

x# # y# 

--> 

0 

X# 

? 


0k 




character 
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2 6 2 9 H . p 9 # 

2 6 2 9 H 

fem&mm&nmubfttt •?. 

A, F, B, c, D, E, H, L 

7a- T ^>/.7j fj . AU _ :? (EC3DH-EC4 4H#itfe) 

*tr-yv-r-t >r- 

— ^ (EC4AH — EC5 1 H#J&) lcfgf$;Xft7’j£f*jgg/oggg££|^gk£ \_x 
7d-t 4 >?'• Tiri-AU-flzffiZfeMlxi f) £1\ 

^ 7D— ^ > ^ ‘ 7lzJfz.2,lfc$cfr'o (-fe*o) X"&-?fzt£ 

a-lzlt, “Division by zero”(/0 Error) 17 -£ £ 0 £ tfr’4 > ?Y >) ?li, 
~/0"<n/ ttli; 
ffi(l. 7 0 1 4 1 E + 3 8) 



v->yiu 


l - division for double 




ORG 

0B900H 

B900 

2177B9 

START: LD 

HL,PRMPT1 

B903 

CD6EB9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B CD5CB9 

CALL 

CLRFAC 

B90E 

C0C826 

CALL 

26C8H 

B911 

CD3E22 

CALL 

223EH 

B914 

213DEC 

LD 

HL,0EC3DH 

B917 

11A1B9 

LD 

DE,BUFFER 

B91A 

010800 

LD 

BC,8 

B91D 

EDBO 

LDIR 


B91F 

2187B9 

J 

LD 

HL,PRMPT2 

B922 

CD6EB9 

CALL 

DSPMSG 

B925 

CD925F 

CALL 

5F92H 

B928 

D8 

RET 

C 

B929 

23 

INC 

HL 

B92A 

CD5CB9 

CALL 

CLRFAC 

B92D 

CDC826 

CALL 

26C8H 

B930 

CD3E22 

CALL 

223EH 

B933 

213DEC 

LD 

HL,0EC3DH 

B936 

114AEC 

LD 

DE,0EC4AH 

B939 

010800 

LD 

BC, 8 

B93C 

EDBO 

LDIR 


B93E 

21A1B9 

LD 

HL.BUFFER 

B941 

113DEC 

LD 

DE.0EC3DH 

B944 

010800 

LD 

BC, 8 

B947 

EDBO 

LDIR 


B949 

CD2926 

CALL 

2629H 


; screen editor 
* stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
l convert into double precision 

J 

; store 1st argument into buffer 


! screen editor 
; stop key, return to basic 

> clear floating point accumulator 
{ convert into binary code 
* convert into double precision 


set 2nd argument into sub-facc 


» set 1st argument into face 


{^division for double precision 
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B94C CDD028 

CALL 28D0H ; convert into character code 

B94F E5 

PUSH HL 

B950 2194B9 

LD HL,ANSWER 

B953 CD6EB9 

CALL DSPMSG 

B956 El 

POP HL 

B957 CD6EB9 

CALL DSPMSG i display result 

B95A 18A4 

JR START 


clear floating point accumulator subroutine 

B95C E5 ( 

dlrfacspush hl 

B95D 210000 

LD HL,0 

B960 223DEC 

LD (0EC3DH),HL 

B963 223FEC 

LD (0EC3FH),HL 

B966 2241EC 

LD (0EC41H),HL 

B969 2243EC 

LD (0EC43H),HL 

B96C El 

POP HL 

B96D C9 

RET 


display message subroutine 

B96E 7E [ 

DSPMSG:LD A,(HL) 

B96F A7 

AND A 

B970 C8 

RET Z 

B971 CD0D3E 

CALL 3E0DH i display a character 

B974 23 

INC HL 

B975 18F7 

JR DSPMSG 


; massage area 

B977 0D0A0A20 PRMPT1sDEFB ODH,OAH,OAH,' x# 7 ' ,0 
B97B 20202020 
B97F 78232020 
B983 203F2000 

B987 20202020 PRMPT2:DEFB ' y# ? ',0 
B98B 20792320 
B98F 20203F20 
B993 00 

B994 7823202F ANSWER:DEFB ' x# / y# —> ' ,0 
B998 20792320 
B99C 2D2D3E20 
B9A0 00 

; buffer for the first argument 
B9A1 BUFFERsDEFS 8 


a=&hb900Seal 1 a 



X# 

? 

20 


y# 

? 

6 

X# 

/ y# 

--> 

3.333333333333333 


X# 

? 

20 


y# 

? 

3 

X# 

/ y# 

— > 

6.666666666666667 


X# 

? 

1.23456789012345 


y# 

7 

1000 

X# 

/ y# 

--> 

1.23456789012345D-03 


X# 

? 

300 


y# 

? 

0 

/O 




X# 

/ y# 

— > 

1.701411834604693D+38 


X# 

? 


Ok 
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2 6 B 5 H : * 


2 6 B 5 H 

£*50 4rttMA9«ftCX«t 6. 

A, F, B, C, D, E, H, L 

hr KvxA^ittJn-CV'S, *77 9 9- 
=>- Kti&ftttfWfc, f£ttJ*fSfc3!<7VM-?-'J, 3-Kic^LT, 7 o 
t< f >A- TifaAW-^:4£ttiri) it. &#*>?'- 
SO 4- < ItMJf Smifc iLtfeWH, E A B D H #itlc t l§*ft 0 

8 Ht^'A 1 ) ;AcO&ft£i*fc^f'-y^(iSEiScS£ tzli 

Ifcfit t L t. 

1) mz&otMi&£i¥z-?fz8mBa<7)r-? 

2 ) jt&Hmofcieiiff^of*-y 
3 ) *11fc% Sr {#& fcSSIScS cor'- 9 

4) Jfcmz ! 9 

5) ESrttofc»ft»SCwf’-^ 

±IE<o*ft*fgSfc$#i-ci'4rltiiJf, fciiWTl 0 T"*>o Ti SSifcSi i:(2£& 
? n i -y-A. i o % x-h tux ssifc® t &- o t1. 

tfz, T'—fcDtplziklituzfflfficDZ*,^^? 7 ? ■ 3— K (0 0H£#tf) *'* 

#&•*• tUX, itBuo A- V 7 9 9£ X"h^% t £ ») £ t. 



V>7‘J\, 


input and display number - 





ORG 

0B900H 

B900 

213AB9 

START: 

LD 

HL,PROMPT 

B903 

CD31B9 


CALL 

DSPMSG 

B906 

CD925F 


CALL 

5F92H 

B909 

D8 


RET 

C 

B90A 

23 


INC 

HL 

B90B 

CDB526 


CALL 

26B5H 

B90E 

F7 


RST 

30H 

B90F 

F217B9 

* 

JP 

P.N0T3 

B912 

2149B9 


LD 

HL.TYPE2 

B915 

180F 


JR 

DSPLAY 

B917 

EA1FB9 

N0T3: 

JP 

PE.N0T4 

B91A 

2155B9 


LD 

HL,TYPE4 

B91D 

1807 


JR 

DSPLAY 

B91F 

38DF 

N0T4: 

JR 

C,START 

B921 

2171B9 


LD 

HL.TYPE8 

B924 

1800 


JR 

DSPLAY 


; screen editor 
; stop key, return to basic 

;*double precision binary code 

; check type of face 

; integer 

; single precision number 

; error, input a number again 
; double precision number 
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B926 

CD31B9 

DSPLAY:CALL 

DSPMSG 


B929 

CDD028 

CALL 

28D0H 

; convert into character code 

B92C 

CD31B9 

CALL 

DSPMSG 


B92F 

18CF 

JR 

START 




; display message subroutine 


B931 

7E 

DSPMSG:LD 

A,(HL > 


B932 

A7 

AND 

A 


B933 

C8 

RET 

Z 


B934 

CD0D3E 

CALL 

3E0DH 

» display a character 

B937 

23 

INC 

HL 


B938 

18F7 

JR 

DSPMSG 



; message area 

B93A 0D0A0A61 PROMPT:DEFB ODH,OAH,OAH,'a number : ',0 
B93E 206E756D 
B942 62657220 
B946 3A2000 

B949 696E7465 TYPE2: DEFB 'integer of ',0 
B94D 67657220 
B951 6F662000 

B955 73696E67 TYPE4: DEFB 'single precision number of ',0 

B959 6C652070 

B95D 72656369 

B961 73696F6E 

B965 206E756D 

B969 62657220 

B96D 6F662000 

B971 646F7562 TYPE8: DEFB 'double precision number of ',0 

B975 6C652070 

B979 72656369 

B97D 73696F6E 

B981 206E756D 

B985 62657220 

B989 6F662000 


a=&hb900ica1 1 a 
a number : 333 

double precision number of 333 

a number : 333^ 
integer of 333 

a number : 33333333333333333333333333333333333333333333333333333 
0 V 

double precision number of 1.701411834604693D+38 

a number : 1.5JS 

integer of 2 

a number : abc 

double precision number of 0 
a number : abc$ 

double precision number of 0 


a number : 
Ok 
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2 6 BCH : 


T K 


tt 


\si>X9 


2 6 BCH 

3c5=*lJ £&<It-'-7 £%.mt S . 

A, F, B, C, D, E, H, L 


# Dt I ^ : s * ? H L TIhSEI'S T h'U 4, 3--v7?7- 

=>-Klc i£i5cflT'-7£, fgfSS!t»I), JjMtJgHlScSii t 

'J • 3-Kl:tt IX, 7n-f< >r- r^^i,v-9 (FACC) ic&fflL, 
E A B D H#itfeU(i, W.itstM S (0 8 H, 0 4 HifcliO 2 H) W K >) it. 
T— 9 9 • a — K (OOH^t'l 

ISbu fiO^f A* 7 9 9i k%') i t. 


• Vv ryj+tv—fibli, 2 6 B C H&ttKVfrfr •) 1C 
2 6 C 8 H#J&£=7-/HT^i-f;y, 2 6 C 8 

-X \>7 ■ 7^i2,w-7(7)S$:^i-EABDH#ifi^iE#IC'^A$tlJ-a-A. 
Zcotztb, ♦ffj(C7n -tj > 9" ■ t**.AU — 9 (FACC) HO HfiA 
T fc< ^<7)@£li>'.^T't. 


7>7";u 


input and displ 





ORG 

0B900H 

B900 

213AB9 

START: 

LD 

HL,PROMPT 

B903 

CD31B9 


CALL 

DSPMSG 

B906 

CD925F 


CALL 

5F92H 

B909 

D8 


RET 

C 

B90A 

23 


INC 

HL 

B90B 

CDBC26 


CALL 

26BCH 

B90E 

F7 


RST 

30H 

B90F 

F217B9 

* 

JP 

P.N0T3 

B912 

2149B9 


LD 

HL.TYPE2 

B915 

180F 


JR 

DSPLAY 

B917 

EA1FB9 

N0T3: 

JP 

PE.NOT4 

B91A 

2155B9 


LD 

HL,TYPE4 

B91D 

1807 


JR 

DSPLAY 

B91F 

38DF 

N0T4: 

JR 

C,START 

B921 

2171B9 


LD 

HL,TYPE8 

B924 

1800 


JR 

DSPLAY 

B926 

CD31B9 

DSPLAY:CALL 

DSPMSG 

B929 

CDD028 

* 

CALL 

28D0H 

B92C 

CD31B9 


CALL 

DSPMSG 

B92F 

18CF 

? 

JR 

START 


number - 

; screen editor 
; stop key, return to basic 

[•convert into binary code 

; check type of face 

• integer 

5 single precision number 

; error, input a number again 
[.double precision number 

[ concert into character code 


[ display message subroutine 
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B931 

7E 

DSPMSGjLD 

A,< HL > 

B932 

A7 

AND 

A 

B933 

C8 

RET 

Z 

B934 

CD0D3E 

CALL 

3E0DH 

B937 

23 

INC 

HL 

B938 

18F7 

JR 

DSPMSG 


display a character 


message area 


B93A 0D0A0A61 
B93E 206E756D 
B942 62657220 
B946 3A2000 
B949 696E7465 
B94D 67657220 
B951 6F662000 
B955 73696E67 
B959 6C652070 
B950 72656369 
B961 73696F6E 
B965 206E756D 
B969 62657220 
B96D 6F662000 
B971 646F7562 
B975 6C652070 
B979 72656369 
B97D 73696F6E 
B981 206E756D 
B985 62657220 
B989 6F662000 


PROMPT:DEFB 0DH.0AH.0AH,'a number : ',0 

TYPE2: DEFB 'integer of ',0 

TYPE4: DEFB 'single precision number of 


TYPE8: DEFB 'double precision number of 


' ,0 


' .0 


a=&Hb900 Seal 1 a 

a number : 333 
integer of 333 

a number : 333.3 

single precision number of 333.3 

a number : 33333333333333333333333333333333333 
double precision number of 3.333333333333334D+34 

a number : 3333333333333333333333333333333333333333333333333 


OV 

double precision number of 1.701411834604693D+38 
a number : 5# 

double precision number of 5 

a number : z80 
integer of 0 


a number : 
Ok 



2 8 C 2 H : ft^&SL 1 6 t£-y Y (D 1 0 Z 


2 8 C 2 H 

3J-&SSL 1 6 t*-y Y<0 1 OiIifc£tti*t5. 

A, F, B, C, D, E, H, L 

u x X 9 H L <T>T— 9 £ ft-g-te l 1 6 t' 7 F « 1 0 ill& i L T, C 

RTX7 'J—>±co#-y;u&sicSE^L-ci i' 1 ) it. 

Nss-BASIC -f > £;flJfl|l,T V'i-f. 

&*>. E6 4CH#H!icoth^77/^0 1 Hlc-fe ■■/ Fi-fUf, 7"'J > 

Lif. 



if >7°;u 


; - display numbers with 





ORG 

0B900H 

B900 

210000 


LD 

HL,0 

B903 

CD3FB9 

LOOP: 

CALL 

DSPHL 

B906 

3E48 

9 

LD 

A, 'H' 

B908 

CD0D3E 


CALL 

3E0DH 

B90B 

3E20 


LD 

A, * ' 

B90D 

CD0D3E 


CALL 

3E0DH 

B910 

3E3D 


LD 

A,' = ' 

B912 

CD0D3E 


CALL 

3E0DH 

B915 

3E20 


LD 

A, * ' 

B917 

CD0D3E 


CALL 

3E0DH 

B91A 

E5 

9 

PUSH 

HL 

B91B 

CDC228 


CALL 

28C2H 

B91E 

El 


POP 

HL 

B91F 

3E0D 

9 

LD 

A,0DH 

B921 

CD0D3E 


CALL 

3E0DH 

B924 

3E0A 


LD 

A.OAH 

B926 

CD0D3E 


CALL 

3E0DH 

B929 

GD36B9 


CALL 

UAIT 

B92C 

23 

9 

INC 

HL 

B92D 

7C 


LD 

A, H 

B92E 

B5 


OR 

L 

B92F 

C8 


RET 

Z 

B930 

CDC235 

9 

CALL 

35C2H 

B933 

30CE 


JR 

NC,LOOP 

B935 

C9 


RET 




» wait 

subroutine 

B936 

01FFFF 

UAIT: 

LD 

BC,OFFFFH 

B939 

OB 

UAIT1: 

DEC 

BC 

B93A 

78 


LD 

A,B 

B93B 

B1 


OR 

C 

B93C 

20FB 


JR 

NZ,UAIT1 

B93E 

C9 


RET 



7.x 

two bytes - 

; display hexa decimal 


J*display decimal 


; wait a moment 


; check stop key 
• not stop key, jump to loop 

; return to basic 
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display hexa decimal number in register hi subroutine 


destroys : register a»f,b 


B93F 

7C 

DSPHL: LD 

A,H 

B940 

CD44B9 

CALL 

DSPACC 

B943 

7D 

LD 

A, L 

B944 

47 

DSPACC:LD 

B, A 

B945 

OF 

RRCA 


B946 

OF 

RRCA 


B947 

OF 

RRCA 


B948 

OF 

RRCA 


B949 

CD4DB9 

CALL 

HALF 

B94C 

78 

LD 

A ,B 

B94D 

E60F 

HALF: AND 

OFH 

B94F 

FEOA 

CP 

10 

B951 

3802 

JR 

C,NUMBER 

B953 

C607 

ADD 

A,7 

B955 

C630 

NUMBER:ADD 

A.30H 

B957 

CD0D3E 

CALL 

3E0DH 

B95A 

C9 

RET 



display a character 


a=&hb900 

I :ca 

0000H 

= 

0 

0001H 

= 

1 

0002H 

= 

2 

0003H 

= 

3 

0004H 

= 

4 

0005H 

= 

5 

0006H 

= 

6 

0007H 

= 

7 

0008H 

= 

8 

0009H 

= 

9 

000AH 

= 

10 

000BH 

ss 

11 

000CH 

= 

12 

000DH 

= 

13 

000EH 

= 

14 

000FH 

= 

15 

0010H 

= 

16 

0011H 

= 

17 

0012H 

~C 

Break 

Ok 


18 
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2 8 d o h : mm?-? 


2 8 D 0 H 

A, F, B, C, D. E, H, L 

EABDH#M<7)SSr^-r&^ ( 2, 4 £ fcli 8 ) |C J: >), 7o- 

(FACC) 

“^^777 • 3 - K<7)*^?iJi-^}^LTE C 5 2 H ^ 3 5 Y <r> 

^7 7 T i;Mt, t"-? co^hic o o h £:{*itin*.£1\ 

U ^^Ijo^sgr Fl/XA'Uy'X^HLl: 

zliricj-AU-riz o 0 HJ-Aftt (7 U — • 7t-v-y Y £*g 5 g) 

2 8 D 1 F ij LSI*. 


7 K I/X 

m m 

m W 
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input and display a 




0RG 

0B900H 

B900 

2128B9 

START: LD 

HL,PROMPT 

B903 

CD1FB9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

08 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CDBC26 

CALL 

26BCH 

B90E 

CDD028 

CALL 

28D0H 

B911 

E5 

PUSH 

HL 

B912 

2139B9 

LD 

HL,ANSWER 

B915 

CD1FB9 

CALL 

DSPMSG 

B918 

El 

POP 

HL 

B919 

CD1FB9 

CALL 

DSPMSG 

B91C 

C300B9 

JP 

START 


; display message subrouti 


number free format - 

; screen editor 
; stop key, return to basic 

; convert into binary code 

;*convert face into character code 

$ display the number 


destroys : register a,f,h,l 


B91F 

7E 

DSPMSG:LD 

A, (HL) 

B920 

A7 

AND 

A 

B921 

C8 

RET 

Z 

B922 

CD0D3E 

CALL 

3E0DH 

B925 

23 

INC 

HL 

B926 

18F7 

JR 

DSPMSG 


display a character 


message area 


B928 0D0A0A74 PROMPT:DEFB ODH,OAH,OAH,'the number ? ',0 

B92C 6865206E 

B930 756D6265 

B934 72203F20 

B938 00 

B939 74686520 ANSWER:DEFB 'the number : ',0 
B93D 6E756D62 
B941 6572203A 
B945 2000 


a=&hb900:cal1 

a 

the 

number 

? 

5 

the 

number 

: 

5 

the 

number 

? 

in 

in 

the 

number 


5.5 

the 

number 

? 

5# 

the 

number 


5 

the 

number 

? 

&ha 

the 

number 

: 

10 

the 

number 

? 

&o777 

the 

number 


511 

the 

number 

? 

1.12345 

the 

number 


1.12345 

the 

0k 

number 

? 
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28 DI H I 7 t- 7 -yh 2 >. 



2 8 D I H 

tStflx — 7£7* — 7-y p Ziitttz'SC^'9\\£.l£Mt%>. 
A, F, B, C, D, E, H, L 


* K 


EABDH#Jt<OSSr^i‘tSc ! T : (2, 4i£(±8) I-<fc 9, 7n — 
r-f > 7 *-(FACC) 

• 3 -K< 7 )^?iJtc^LtEC 5 2 Htltt'fc 3 5'<4 P < 7 > 
A' 7 77 l:BlrtL, r'- 7 co^JltzO 0 H £#tt#n£ii". 

ij ^ —5t^i]c7)7tlI7 Kvxi ! i//X3'HLl:Aotv'it. 

zst^fij'f'— 7&7 * — -?-y P ^Pa/E't' 


hm^Zbtztb, BASICWPRINT USING,LPRINT USIN 
G, FORTRANcoFORMATi I^Hf coWifeZ ik%cttffli^z‘£Mt h ♦* < ‘C 

$tt. 

7*—7-y hc7)^®l±, P'7X7CtC''°7 

7-7£4;Lt:fr£v'£t* { , WTl^ttmx>/'”7 7-77>;fti*£^L£1\ 


1) 7A-j-AP-7 

e-y p 7—7*--7-y MBsgfcfrfr-j^SfrfciBJeLil-. 

*rt,, :nt'7 R* ! 0X)*f-o-!cliJiITco7^ —-7'x PpB^ii£7$s 

t) <r> t ic 0 it. 

b-y p 6-icob-y P £ 1 t--fe-y P L tz*§s&, M&<nW!knWS 

pffftjc tiy-7 (, ) T'E-WGPtJ t. 

b'-y P 5-:W7 PtlK-kyP L £*§-£, 

t %, (*) T*Si6£l\ 

b'-y P 4-dX)b-y P£llc-fe-y P LfzW&, fdt<7)jttBUtCi> • 

■v—7 (¥) ziiWjaz.it. 

by p 3-r <r> b-y P Z 1 ic-fe-y P LXi*§-n-, iSdl>'Ax>0#<7)-7 

^txtf (-) *flt-Cfc<, iSde*''lE<7)0#y)77Xp¥-t ( + )i>, 
£ 1 ". 

b-y P 2-wX>b -y P Z 1 tc-fe-y P LX: *§•£•, -7 4 -f X ?£-§•(-) 

i/;«77Xtff ( + ) Z1k\&<nM'&Mihulit. 
b'-y P 0-CCOb-y P £ 1 tc-fe-y p LX’iJrg-, 
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2 ) U X X 9 B 

fcflLWfifSc^J'? v^-g-CIi, ') £1\ 

3 ) l^X^C 

- , M&.£<7>7 -( — ;u K 1 ffr'S'£'a'tj\ 9ft ('J'fcSWH ^>ffr 

1&£Jb^L £i\ 

^U:Sti **«Hiflc/N"--fe> h --7-7 

1\ 8Mttf>?u6A f W*ft<fc •):*:£ < fro £ :)§£•&, ^L 

j6fe&1it<7)HfJlc^°—b> h --v-7 (%) ^ftSn?ixit. 


•9- > X°;U 


; - print using test program 

ORG 0B900H 


; input the number section 


B900 

21DDB9 

START: LD 

HL,PRMPT1 


B903 

CDD4B9 

CALL 

DSPMSG 

; screen editor 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

; stop key, return to basic 

B90A 

23 

INC 

HL 

; clear floating point accumulator 

B90B 

CDC2B9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

; convert into binary code 


print using section 


B911 

AF 


XOR 

A 

; clear accumulator 


B912 

5F 


LD 

E, A 

; clear register e 


B913 

21F8B9 

* 

LD 

HL,PRMPT7 

; using ? 


B916 

CDD4B9 


CALL 

DSPMSG 


keyboard 

B919 

CD8335 


CALL 

3583H 

; input a character from 

B91C 

CD0D3E 


CALL 

3E0DH 

; echo-back a character 


B91F 

FE79 


CP 

' y' 



B921 

C2B0B9 


JP 

NZ,DSPLAY 

; display in free format 

B924 

CBFB 


SET 

7,E 

; display in not free format 

B926 

2111BA 

COMMA: 

LD 

HL,PRMPT6 

; commas ? 


B929 

CDD4B9 


CALL 

DSPMSG 



B92C 

CD8335 


CALL 

3583H 

; input a character from 

keyboard 

B92F 

CD0D3E 


CALL 

3E0DH 

{ echo-back a characer 


B932 

FE79 


CP 

'y' 

; not display commas 


B934 

2002 


JR 

NZ,ASTAR 


B936 

CBF3 


SET 

6,E 

; display commas 


B938 

212BBA 

ASTAR: 

LD 

HL,PRMPT5 

; astarisk ? 


B93B 

CDD4B9 


CALL 

DSPMSG 


keyboard 

B93E 

CD8335 


CALL 

3583H 

; input a character from 

B941 

CD0D3E 


CALL 

3E0DH 

; echo-back a character 


B944 

FE79 


CP 

' y' 

; not display asterisks 


B946 

2002 


JR 

NZ,YEN 


B948 

CBEB 


SET 

5,E 

; display asterisks 


B94A 

2145BA 

YEN: 

LD 

HL,PRMPT4 

; yen mark ? 


B94D 

CDD4B9 


CALL 

DSPMSG 


keyboard 

B950 

CD8335 


CALL 

3583H 

; input a character from 

B953 

CD0D3E 


CALL 

3E0DH 

; echo-back a character 


B956 

FE79 


CP 

' y' 




89 





B958 

2002 


JR 

NZ,PLUS 

B95A 

CBE3 


SET 

4,E 

B95C 

215FBA 

PLUS: 

LD 

HL,PRMPT3 

B95F 

CDD4B9 


CALL 

DSPMSG 

B962 

CD8335 


CALL 

3583H 

B965 

CD0D3E 


CALL 

3E0DH 

B968 

FE79 


CP 

' y' 

B96A 

2002 


JR 

NZ,SIGN 

B96C 

CBDB 


SET 

3,E 

B96E 

2179BA 

SIGN: 

LD 

HL,PRMPT2 

B971 

CDD4B9 


CALL 

DSPMSG 

B974 

CD8335 


CALL 

3583H 

B977 

CD0D3E 


CALL 

3E0DH 

B97A 

FE79 


CP 

' y' 

B97C 

2002 


JR 

NZ,INDEX 

B97E 

CBD3 


SET 

2,E 

B980 

2193BA 

INDEX: 

LD 

HL,PRMPT0 

B983 

CDD4B9 


CALL 

DSPMSG 

B986 

CD8335 


CALL 

3583H 

B989 

CD0D3E 


CALL 

3E0DH 

B98C 

FE79 


CP 

' y' 

B98E 

2002 


JR 

NZ,LEFT 

B990 

CBC3 


SET 

0,E 

B992 

21ADBA 

LEFT: 

LD 

HL,PRMPTL 

B995 

CDD4B9 


CALL 

DSPMSG 

B998 

CD8335 


CALL 

3583H 

B99B 

CD0D3E 


CALL 

3E0DH 

B99E 

D630 


SUB 

'0' 

B9A0 

47 


LD 

B, A 

B9A1 

21C7BA 

RIGHT: 

LD 

HL.PRMPTR 

B9A4 

CDD4B9 


CALL 

DSPMSG 

B9A7 

CD8335 


CALL 

3583H 

B9AA 

CD0D3E 


CALL 

3E0DH 

B9AD 

D630 


SUB 

'0' 

B9AF 

4F 


LD 

C, A 

B9B0 

7B 

DSPLAY 

:LD 

A,E 

B9B1 

CDD128 


CALL 

28D1H 

B9B4 

E5 


PUSH 

HL 

B9B5 

21E1BA 


LD 

HL,ANSWER 

B9B8 

CDD4B9 


CALL 

DSPMSG 

B9BB 

El 


POP 

HL 

B9BC 

CDD4B9 


CALL 

DSPMSG 

B9BF 

C300B9 

5 

JP 

START 


; not display yen mark 
5 display yen mark 

; plus mark ? 

• input a character from keyboard 
i echo-back a character 

; not display plus mark 
; display plus mark 

; sign ? 

• input a character from keyboard 
! echo-back a character 

; not display sign after a number 
; display sign after a number 

; index format ? 

» input a character from keyboard 
; echo-back a character 

; not in index format 

• in index format 

J left of point ? 

; input a character from keyboard 

; echo-back a character 
; convert a character into binary 

; right of point ? 

; input a character from keyboard 
; echo-back a character 
i convert a character into binary 


; set the most inportant agument 
{^convert face into character code 


* display the number 


clear floating point accumulator subroutine 


destroys : none 


B9C2 

E5 ( 

:LRFAC:PUSH 

HL 

B9C3 

210000 

LD 

HL, 0 

B9C6 

223DEC 

LD 

(0EC3DH),HL 

B9C9 

223FEC 

LD 

< 0EC3FH),HL 

B9CC 

2241EC 

LD 

(0EC41H),HL 

B9CF 

2243EC 

LD 

(0EC43H),HL 

B9D2 

El 

POP 

HL 

B9D3 

C9 

RET 



display message subroutine 


destroys S register a,f,h,l 


B9D4 

7E 

DSPMSG:LD 

A,(HL) 

B9D5 

A7 

AND 

A 

B9D6 

C8 

RET 

Z 

B9D7 

CD0D3E 

CALL 

3E0DH 

B9DA 

23 

INC 

HL 

B9DB 

18F7 

JR 

DSPMSG 


display a character 
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message area 


B9DD 0D0A0A74 PRMPT1:DEFB ODH,0AH,OAH,'the number ? ' ,0 

B9E1 6865206E 

B9E5 756D6265 

B9E9 72203F20 

B9ED 20202020 

B9F1 20202020 

B9F5 202000 


B9F8 0D757369 PRMPT7jDEFB ODH, 

B9FC 6E672028 
BAOO 7929203F 
BA04 20202020 
BA08 20202020 
BAOC 20202020 
BA10 00 

BA11 0D0A636F PRMPT6-.DEFB ODH,OAH, 

BA15 6D6D6173 

BA19 20287929 

BA1D 203F2020 

BA21 20202020 

BA25 20202020 

BA29 2000 

BA2B 0D0A6173 PRMPT5:DEFB ODH,OAH, 

BA2F 74617269 

BA33 736B7320 

BA37 28792920 

BA3B 3F202020 

BA3F 20202020 

BA43 2000 

BA45 0D0A7965 PRMPT4:DEFB ODH,OAH, 

BA49 6E206D61 

BA4D 726B2028 

BA51 7929203F 

BA55 20202020 

BA59 20202020 

BA5D 2000 

BA5F 0D0A706C PRMPT3:DEFB ODH,OAH, 

BA63 7573206D 

BA67 61726B20 

BA6B 28792920 

BA6F 3F202020 

BA73 20202020 

BA77 2000 

BA79 0D0A7369 PRMPT2:DEFB ODH,OAH, 

BA7D 676E2028 

BA81 7929203F 

BA85 20202020 

BA89 20202020 

BA8D 20202020 

BA91 2000 

BA93 0D0A696E PRMPTO:DEFB ODH,OAH, 

BA97 64657820 

BA9B 666F726D 

BA9F 61742028 

BAA3 7929203F 

BAA7 20202020 

BAAB 2000 

; 

BAAD 0D0A6C65 PRMPTLjDEFB ODH,OAH, 

BAB1 6674206F 

BAB5 6620706F 

BAB9 696E7420 

BABD 28302D39 

BAC1 29203F20 

BAC5 2000 

BAC7 0D0A7269 PRMPTR:DEFB ODH,OAH, 

BACB 67687420 

BACF 6F662070 

BAD3 6F696E74 

BAD7 2028302D 

BADB 3929203F 


'using (y) ? 


' ,0 


'commas (y) ? 


' ,0 


'asterisks (y) ? ',0 


'yen mark (y) ? ' ,0 


'plus mark (y) ? ' ,0 


'sign (y) ? 


' ,0 


'index format (y) ? ',0 


'left of point (0-9) ? ',0 


'right of point (0-9) ? ',0 
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BADF 2000 


BAE1 0D0A7468 ANSUERtDEFB 

BAE5 65206E75 

BAE9 6D626572 

BAED 203A2020 

BAF1 20202020 

BAF5 20202020 

BAF9 2000 


0DH.0AH, 'the number 


a=&hb900:ca11 a 


the number ? 1234.56789 

using (y) ? y 

commas (y) ? y 

asterisks (y) ? y 

yen mark (y) ? y 

plus mark (y) ? y 

sign (y) ? y 

index format (y) ? n 

left of point (0-9) ? 9 

right of point (0-9) ? 3 

the number : ***¥1,234.57+ 


the number ? 
using (y) ? 
commas (y) ? 
astarisks (y) ? 
yen mark (y) ? 
plus mark (y) ? 
sign (y) ? 
index format (y) ? 
left of point (0-9) ? 
right of point (0-9) ? 
the number : 

the number ? 1234.5 

using (y) ? n 

the number : 1234.5 


9876.54321 

y 


98765432.100000000-04 


the number ? 
Ok 
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2 E 0 5 H : 


2 E 0 5 h 

A, F, B, C, D, E, H, L 




| 70-7^ (FACC 


iwt< 7n-T4 >?■ r^zi.2. 




v- > 7°JU 


; sqr function test program - 

ORG 0B900H 


B900 2138B9 
B903 CD2FB9 


START: LD HL,PROMPT 
CALL DSPMSG 


B906 CD925F 
B909 D8 

B90A 23 
B90B E5 


CALL 5F92H 
RET C 

INC HL 
PUSH HL 


; screen editor 
* stop key, return to basic 


B90C 

CDB526 

CALL 

26B5H 

B90F 

CD1C22 

CALL 

221CH 

B912 

CD052E 

CALL 

2E05H 

B915 

CDD028 

CALL 

28D0H 

B918 

EB 

EX 

DE.HL 

B919 

2155B9 

LD 

HL,ANSI 

B91C 

CD2FB9 

CALL 

DSPMSG 

B91F 

El 

POP 

HL 

B920 

CD2FB9 

CALL 

DSPMSG 

B923 

215CB9 

LD 

HL,ANS2 

B926 

CD2FB9 

CALL 

DSPMSG 

B929 

EB 

EX 

DE.HL 

B92A 

CD2FB9 

CALL 

DSPMSG 

B92D 

18D1 

JR 

START 


* convert into binary code 

* convert into single precision 
J sqr function 

; convert into character code 


; display result 


B92F 7E 
B930 A7 
B931 C8 
B932 CD0D3E 
B935 23 
B936 18F7 


; display message subroutine 

DSPMSG:LD A,(HL) 

AND A 
RET Z 
CALL 3E0DH 
INC HL 
JR DSPMSG 


J massage area 

IUI 6E676C65 " R0MPT! ° EFB °°H.OAH.'sin 0 ,e precision number ? '.0 
B940 20707265 
B944 63697369 
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B948 6F6E206E 
B94C 756D6265 
B950 72203F20 
B954 00 
B955 73717220 
B959 282000 
B95C 20292069 
B960 73206571 
B964 75616C20 
B968 746F2000 


ANSI: DEFB 
ANS2: DEFB 


'sqr ( ' ,0 

) is equal to 


' ,0 


defusr=&hb900:a=usr(a) 

single precision number ? 0 
sqr ( 0 ) is equal to 0 
single precision number ? 1 
sqr ( 1 ) is equal to 1 
single precision number ? 2 
sqr < 2 ) is equal to 1.41421 
single precision number ? 4 
sqr ( 4 ) is equal to 2 
single precision number ? 400 
sqr ( 400 ) is equal to 20 

single precision number ? 100000000000000000000 

sqr ( 100000000000000000000 ) is equal to 1E+10 

single precision number ? 10000000000 

sqr ( 10000000000 ) is equal to 100000 

single precision number ? 0.09 

sqr ( 0.09 ) is equal to .3 

single precision number 7 abc 

sqr ( abc ) is equal to 0 

single precision number ? 

Ok 


2 E 1 5 H : 4'*5 


2 E 1 5 H 

A, F, B, C, D, E, H, L 

u V X 9 B C D E tc f&lft $ & % 1 '<y S - 9 

(X)i 1, 7o-r^ y'T- T^Alz-i’ (FACC) »e»*rt3iifcJ|l*||*S! 

(Y) ttfttt* (X^Y) £ 

(FACC) liMltU' 1 )*! 

i L, W/X^BCDEi:-§-i5iP'!7^-;i f 0 (-fe'n) T% 4fcA>o7 
o-f^/'TifzAV-; (FACC) \z5-th%2 '<7 
("v’'f"tX) T'ib o 4%-o'(C(±, “Division by zero”(/0 Error)i7—£4 

•) it am >9-?') cos y-t-iszmm u #«*£«*»* l-c 

®7 r£<7)T-£6ft*<7)iMt (1 .70141E+38) fc L 



+b>’7'^ 


- exponentiation for 




ORG 

0B900H 

B900 

215CB9 

START: LD 

HL.PRMPT1 

B903 

CD53B9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

CD41B9 

CALL 

CLRFAC 

B90E 

CDC826 

CALL 

26C8H 

B911 

CD1422 

CALL 

2214H 

B914 

CDE820 

CALL 

20E8H 

B917 

C5 

PUSH 

BC 

B918 

D5 

PUSH 

DE 

B919 

216CB9 

LD 

HL,PRMPT2 

B91C 

CD53B9 

CALL 

DSPMSG 

B91F 

CD925F 

CALL 

5F92H 

B922 

23 

INC 

HL 

B923 

CD41B9 

CALL 

CLRFAC 

B926 

CDC826 

CALL 

26C8H 

B929 

CD1422 

CALL 

2214H 

B92C 

D1 

POP 

DE 

B92D 

Cl 

POP 

BC 

B92E 

CD152E 

CALL 

2E15H 

B931 

CDD028 

CALL 

28D0H 

B934 

E5 

PUSH 

HL 

B935 

2179B9 

LD 

HL,ANSUER 

B938 

CD53B9 

CALL 

DSPMSG 

B93B 

El 

POP 

HL 

B93C 

CD53B9 

CALL 

DSPMSG 


single precision - 


; screen editor 
; stop key, return to basic 

; clear floating point accumulator 
; convert into binary code 
; convert into single precision 
; move from face to register bede 


; screen editor 

; clear floating point accumulator 
» convert into binary code 
; convert into single precision 


;*facc <— register bede ~ face 
; convert into character code 


; display result 
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B93F 18BF JR START 

clear floating point accumulator subroutine 


B941 

E5 

CLRFAC:PUSH 

HL 

B942 

210000 

LD 

HL ,0 

B945 

223DEC 

LD 

(0EC3DH),HL 

B948 

223FEC 

LD 

(0EC3FH), HL 

B94B 

2241EC 

LD 

(0EC41H),HL 

B94E 

2243EC 

LD 

(0EC43H), HL 

B951 

El 

POP 

HL 

B952 

C9 

RET 




; display message subrout: 

B953 

7E 

DSPMSGtLD 

A,(HL) 

B954 

A7 

AND 

A 

B955 

C8 

RET 

Z 

B956 

CD0D3E 

CALL 

3E0DH 

B959 

23 

INC 

HL 

B95A 

18F7 

JR 

DSPMSG 



; message area 

B95C 

0D0A0A20 

PRMPT1:DEFB 

0DH,0AH,0AH,' 

B960 

20202020 



B964 

78212020 



B968 

203F2000 



B96C 

20202020 

PRMPT2:DEFB 

y! ? 

B970 

20792120 



B974 

20203F20 



B978 

00 



B979 

7821205E 

ANSWER:DEFB 

' x! A y! —> 

B97D 

20792120 



B981 

2D2D3E20 



B985 

00 




display a character 


' ,0 


a=&hb900:cal 1 a 


x! ? 0 

y! ? 5 

x! y! —> 0 

x' ? 5 

y! 7 0 

x! * y! —> 1 

x! 7 0 

y! 7-5 

/0 

x! ~ y! --> 1.70141E+38 


x! 7 3.0001 

y! 7 3.0001 

x! ~ y! —> 27.0057 


Ok 


? 
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2 E 6 E H : e izttt Z> *##> * 


2 E 6 E H 

e IZ^t 5 ffiiitMSOTfS £4M*j£I!5l8![T;£tf) S. 

Ai F, 6, Oj D, E, H, L 

7d(FACC) fcfclftSilfcJIMIIS 

< 7D-fp/’ 

t'>) it. 

8 7 . 3 3 6 5 5 J: 9 *# V'*#fcli“Overflow" ( OV 
Error) 3-7 it. 





exp function teat program 




ORG 

0B900H 



B900 

2138B9 

START: LD 

HL,PROMPT 



B903 

CD2FB9 

CALL 

DSPMSG 



B906 

CD925F 

CALL 

5F92H 

: screen editor 


B909 

D8 

RET 

C 

; stop key, return to 

basic 

B90A 

23 

INC 

HL 



B90B 

E5 

PUSH 

HL 



B90C 

CDB526 

CALL 

26B5H 

; convert into binary 

code 

B90F 

CD1C22 

CALL 

221CH 

• convert into single 

precis i ( 

B912 

CD6E2E 

CALL 

2E6EH 

: exp function 


B915 

CDD028 

CALL 

28D0H 

» convert into character code 

B918 

EB 

EX 

DE.HL 



B919 

2155B9 

LD 

HL,ANSI 



B91C 

CD2FB9 

CALL 

DSPMSG 



B91F 

El 

POP 

HL 



B920 

CD2FB9 

CALL 

DSPMSG 



B923 

215CB9 

LD 

HL.ANS2 



B926 

CD2FB9 

CALL 

DSPMSG 



B929 

EB 

EX 

DE.HL 



B92A 

CD2FB9 

CALL 

DSPMSG 

; display result 


B92D 

18D1 

JR 

START 





; display message subroutine 



B92F 

7E 

DSPMSGsLD 

A,(HL) 



B930 

A7 

AND 

A 



B931 

C8 

RET 

Z 



B932 

CD0D3E 

CALL 

3E0DH 



B935 

23 

INC 

HL 



B936 

18F7 

JR 

DSPMSG 
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massage area 


B938 0D0A7369 
B93C 6E676C65 
B940 20707265 
B944 63697369 
B948 6F6E206E 
B94C 756D6265 
B950 72203F20 
B954 00 
B955 65787020 
B959 282000 
B95C 20292069 
B960 73206571 
B964 75616C20 
B968 746F2000 


PROMPT:DEFB 0DH,0AH,'single prec 


ANSI: DEFB 'exp ( ',0 

ANS2: DEFB ' ) is equal to ',0 


defusr=&hb900:a=usr(a) 


single precision number ? 1 

exp ( 1 ) is equal to 2.71828 

single precision number ? 2 

exp ( 2 ) is equal to 7.38906 

single precision number ? 3 

exp ( 3 ) is equal to 20.0855 

single precision number ? 4 

exp ( 4 ) is equal to 54.5982 

single precision number ? 5 

exp ( 5 ) is equal to 148.413 

single precision number ? 87 

exp ( 87 ) is equal to 6.07602E+37 

single precision number ? 88 

OV 

exp ( 88 ) is equal to 1.70141E+38 
single precision number ? abc 
exp ( abc ) is equal to 1 
single precision number ? 

0k 


sion number ? ',0 
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2 F 1 AH : m »j££Sm<Z>SL(»fr3&£* 3 


2 F 1 A H 

A, F, B, C, D, E, H, L 

OJU±l*SI«ogL*S:^^Mt)#Sc?)**fet LTigifeL, 7u-f< > 

?'• ttc-s-iti t* 1 ) it. 

i§±t6SLifcl±, N 8 8-BASIC<ORUNfciU f CLEAR*<ISfr$i'lSrit;:|3ifc 

WfcttO, 7o-f< • T^iAU-^tc4H»#li®SliScM(7)?||S;lcJ:^ 

-Ot<oi TtHir') it. 

*>*£■£li, *>fc fe U'affcfcHfcKfeL 1 1. 
3lft**0«o#£fcli, lofffc»ifeLfcSL*fc«ft£i •) it. 
^<0gl*kt»4Lit. 


T 7 K UX 

m m 

m m 
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; - display random numbers - 





ORG 

0B900H 


B900 

2133B9 

* 

LD 

HL,TITLE 


B903 

CD2AB9 


CALL 

DSPMSG 


B906 

0664 


LD 

B, 100 

; set loop counter 

B908 

C5 

LOOP: 

PUSH 

BC 


B909 

210000 


LD 

HL ,0 


B90C 

223DEC 


LD 

(0EC3DH),HL 


B90F 

223FEC 


LD 

(0EC3FH),HL 


B912 

2241EC 


LD 

(0EC41H),HL 

; face <— single precision of 

B915 

2651 


LD 

H ,81 


B917 

2243EC 


LD 

(0EC43H),HL 


B91A 

CD5222 


CALL 

2252H 


B91D 

CD1A2F 

9 

CALL 

2F1AH 

5 rnd function 

B920 

CDD028 


CALL 

28D0H 

; convert into character code 

B923 

CD2AB9 


CALL 

DSPMSG 

; display a random number 

B926 

Cl 

9 

POP 

BC 


B927 

10DF 


DJNZ 

LOOP 

; check loop counter 

B929 

C9 

9 

RET 


; return to basic 


; display message subroutine 


B92A 

7E 

DSPMSG:LD 

A,(HL) 


B92B 

A7 

AND 

A 


B92C 

C8 

RET 

Z 


B92D 

CD0D3E 

CALL 

3E0DH 

; display a character 

B930 

23 

INC 

HL 


B931 

18F7 

JR 

DSPMSG 



; massage area 

B933 0D0A2D2D TITLE: DEFB ODH,OAH,' random numbers ',0DH,0AH,0 

B937 2D207261 
B93B 6E646F6D 
B93F 206E756D 
B943 62657273 
B947 202D2D2D 
B94B 0D0A00 


a=&hb900:cal 1 a 


- random numbers - 

.515813 .356502 .669923 .777707 .357315 .0665066 .819051 .791743 .429127 .82081 
.531435 .310511 .209423 .708369 .726243 .0934078 .88245 .712778 .118974 .650003 
.0462312 .551492 .0901691 .433297 .321401 .448729 .216281 .0159076 .558512 .593 
016 .960547 .368405 .352878 .818298 .0490134 .211928 .144036 .265899 .881169 .15 
7237 .13199 .69775 .154114 .643139 .428326 .782207 .0468152 .334085 .782977 .682 
061 .880143 .892113 .507562 .655652 .709999 .420419 3.66679E-03 .744425 .760866 
.988555 .563593 .257445 .563038 .464049 .267248 .699108 .666886 .18031 9.77931E- 
03 .565483 .954732 .715359 .929904 .835917 .961199 .229882 .200387 .0347998 .969 
152 .988476 .3917 .0847099 .193131 .600219 .578091 .479964 .745441 .753107 .6693 
15 .29843 .607734 .585781 .560146 .701109 .709122 .943154 .977027 .716624 .32510 
5 .296994 
Ok 
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2 F8 BH : >)*-&#> Z 


T K i'X 


m m 


l si>7.9 


2 F 8 B H 

A, F, B, C, D, E, H, L 


#_ifcj 7 d -t< >7 ■ 7*iAU’-y(FACC)tctett£ttfc#««S 

< 7D-f< > 7 • 


V >-fn. 


- cos function test program - 

ORG 0B900H 


B900 

214BB9 

START: LD 

HL,PROMPT 

B903 

CD42B9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

E5 

PUSH 

HL 

B90C 

110000 

LD 

DE.O 

B90F 

ED533DEC 

LD 

(0EC3DH),DE 

B913 

ED533FEC 

LD 

(0EC3FH),DE 

B917 

ED5341EC 

LD 

(0EC41H),DE 

B91B 

ED5343EC 

LD 

(0EC43H),DE 

B91F 

CDC826 

CALL 

26C8H 

B922 

CD1422 

CALL 

2214H 

B925 

CD8B2F 

CALL 

2F8BH 

B928 

CDD028 

CALL 

28D0H 

B92B 

EB 

EX 

DE,HL 

B92C 

2168B9 

LD 

HL,ANSI 

B92F 

CD42B9 

CALL 

DSPMSG 

B932 

El 

POP 

HL 

B933 

CD42B9 

CALL 

DSPMSG 

B936 

216FB9 

LD 

HL,ANS2 

B939 

CD42B9 

CALL 

DSPMSG 

B93C 

EB 

EX 

DE.HL 

B93D 

CD42B9 

CALL 

DSPMSG 

B940 

18BE 

JR 

START 



• display message subroutine 

B942 

7E 

DSPMSG:LD 

A,(HL) 

B943 

A7 

AND 

A 

B944 

C8 

RET 

Z 

B945 

CD0D3E 

CALL 

3E0DH 

B948 

23 

INC 

HL 

B949 

18F7 

JR 

DSPMSG 


screen editor 

stop key, return to basic 


clear floating point accumulator 


convert into binary code 
convert into single precision 
cos function 

convert into character code 


display result 


display a character 
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; 

J massage area 


B94B 0D0A7369 PROMPTjDEFB ODH.OAH.'single 


B94F 

6E676C65 


B953 

20707265 


B957 

63697369 


B95B 

6F6E206E 


B95F 

756D6265 


B963 

72203F20 


B967 

00 


B968 

636F7320 

ANSI 

B96C 

282000 


B96F 

20292069 

ANS2 

B973 

73206571 


B977 

75616C20 


B97B 

746F2000 



DEFB 'cos ( ',0 
DEFB ' ) is equal to 


prec 


' .0 


a=&Sb900:ca11 a 

single precision number ? 1 
cos ( 1 ) is equal to .540302 
single precision number ? 1.1 
cos ( 1.1 ) is equal to .453596 
single precision number ? 1.2 
cos ( 1.2 ) is equal to .362358 
single precision number ? 1.3 
cos ( 1.3 ) is equal to .267499 
single precision number ? 1.4 
cos ( 1.4 ) is equal to .169967 
single precision number ? 1.5 
cos ( 1.5 ) is equal to .0707371 
single precision number ? 1.6 
cos < 1.6 ) is equal to -.0291995 
single precision number ? 1.7 
cos ( 1.7 ) is equal to -.128845 
single precision number ? 

Ok 

print tab(24);cos(1.7) 


sion number ? ',0 


103 


2 F 9 1 H : >) 5 . 


2 F 9 1 H 

*liSMSli!OTjEB5 (-<MV) 4f*5. 

A, F, B, C, D, E, H, L 

7B-f^7-rnAU-; (FACC) K *&*<!$ ft *:#«« 
7 i?T> 4 ><?>&.*-&#>' W\t < VD- 



-9-^yA. 


; - sin function test program - 





0RG 

0B900H 

B900 

214BB9 

START: 

LD 

HL,PROMPT 

B903 

CD42B9 


CALL 

DSPMSG 

B906 

CD925F 

9 

CALL 

5F92H 

B909 

D8 


RET 

C 

B90A 

23 

9 

INC 

HL 

B90B 

E5 


PUSH 

HL 

B90C 

110000 

9 

LD 

DE, 0 

B90F 

ED533DEC 


LD 

(0EC3DH),DE 

B913 

ED533FEC 


LD 

(0EC3FH),DE 

B917 

ED5341EC 


LD 

(0EC41H),DE 

B91B 

ED5343EC 


LD 

(0EC43H),DE 

B91F 

CDC826 

9 

CALL 

26C8H 

B922 

CD1422 


CALL 

2214H 

B925 

CD912F 


CALL 

2F91H 

B928 

CDD028 


CALL 

28D0H 

B92B 

EB 

[ 

EX 

DE ,HL 

B92C 

2168B9 

9 

LD 

HL,ANSI 

B92F 

CD42B9 


CALL 

DSPMSG 

B932 

El 

9 

POP 

HL 

B933 

CD42B9 


CALL 

DSPMSG 

B936 

216FB9 

9 

LD 

HL.ANS2 

B939 

CD42B9 


CALL 

DSPMSG 

B93C 

EB 

9 

EX 

DE ,HL 

B93D 

CD42B9 


CALL 

DSPMSG 

B940 

18BE 


JR 

START 



; display message subroi 

B942 

7E 

DSPMSG: 

: LD 

A, (HL) 

B943 

A7 


AND 

A 

B944 

C8 


RET 

Z 

B945 

CD0D3E 


CALL 

3E0DH 

B948 

23 


INC 

HL 

B949 

18F7 


JR 

DSPMSG 


; screen editor 
; stop key, return to basic 


clear floating point accumulator 


; convert into binary code 
; convert into single precision 
; sin function 

; convert into character code 


; display result 


; display a character 
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massage area 


B94B 0D0A7369 PROMPT:DEFB ODH.OAH,'single precision number ? ',0 

B94F 6E676C65 

B953 20707265 

B957 63697369 

B95B 6F6E206E 

B95F 75606265 

B963 72203F20 

B967 00 

B968 73696E20 ANSI: DEFB 'sin < ',0 
B96C 282000 

B96F 20292069 ANS2: DEFB ' ) is equal to ',0 
B973 73206571 
B977 75616C20 
B97B 746F2000 


a=&hb900:cal 1 a 

single precision number ? .1 
sin ( .1 ) is equal to .0998334 

single precision number ? .2 
sin ( .2 ) is equal to .198669 
single precision number ? .3 
sin ( .3 ) is equal to .29552 
single precision number ? .4 
sin ( .4 ) is equal to .389418 
single precision number ? .5 
sin ( .5 ) is equal to .479426 
single precision number ? 6 
sin ( 6 ) is equal to -.279416 
single precision number ? 7 
sin ( 7 ) is equal to .656987 
single precision number ? 8 
sin ( 8 ) is equal to .989358 
single precision number ? 9 
sin ( 9 ) is equal to .412119 
single precision number ? 0 
sin ( 0 ) is equal to 0 
0k 
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3 0 2 CH : IE&<fi h) 



3 0 2 CH 

(9>i>x>b) 4^*5, 
A» F", B, C, D, E, H, L_ 

7 n — r >f > 


(FACC) 

Iit«#fl:7xT>i = h (jE&fit) colAZ# 

16 , lslt< 7 a — Tj >?'• T*2. AU — ?IZ-$-z.X i t'V £1". 




tan function test program 
ORG 0B900H 


B900 

214BB9 

START: LD 

HL,PROMPT 

B903 

CD42B9 

CALL 

DSPMSG 

B906 

CD925F 

CALL 

5F92H 

B909 

D8 

RET 

C 

B90A 

23 

INC 

HL 

B90B 

E5 

PUSH 

HL 

B90C 

110000 

LD 

DE, 0 

B90F 

ED533DEC 

LD 

(0EC3DH),DE 

B913 

ED533FEC 

LD 

(0EC3FH),DE 

B917 

ED5341EC 

LD 

(0EC41H),DE 

B91B 

ED5343EC 

LD 

(0EC43H),DE 

B91F 

CDC826 

CALL 

26C8H 

B922 

CD1422 

CALL 

2214H 

B925 

CD2C30 

CALL 

302CH 

B928 

CDD028 

CALL 

28D0H 

B92B 

EB 

EX 

DE,HL 

B92C 

2168B9 

LD 

HL,ANSI 

B92F 

CD42B9 

CALL 

DSPMSG 

B932 

El 

POP 

HL 

B933 

CD42B9 

CALL 

DSPMSG 

B936 

216FB9 

LD 

HL,ANS2 

B939 

CD42B9 

CALL 

DSPMSG 

B93C 

EB 

EX 

DE, HL 

B93D 

CD42B9 

CALL 

DSPMSG 

B940 

18BE 

JR 

START 



; display message subrou 

B942 

7E 

DSPMSGrLD 

A,(HL) 

B943 

A7 

AND 

A 

B944 

C8 

RET 

Z 

B945 

CD0D3E 

CALL 

3E0DH 

B948 

23 

INC 

HL 

B949 

18F7 

JR 

DSPMSG 


screen editor 

stop key, return to basic 


clear floating point accumulator 


convert into binary code 
convert into single precision 
tan function 

convert into character code 


display result 


display a character 
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massage area 


B94B 

0D0A7369 

PROMPT:DEFB 

0DH.0AH 

B94F 

6E676C65 



B953 

20707265 



B957 

63697369 



B95B 

6F6E206E 



B95F 

756D6265 



B963 

72203F20 



B967 

00 



B968 

74616E20 

ANSI: DEFB 

' tan ( 

B96C 

282000 



B96F 

20292069 

ANS2: DEFB 

' ) is 

B973 

73206571 



B977 

75616C20 



B97B 

746F2000 




,'single 


' ,0 

equal to 


prec i 


' ,0 


a=&hb900:cal 1 a 

single precision number ? 0.001 
tan ( 0.001 > is equal to .001 
single precision number ? 0.01 
tan ( 0.01 ) is equal to .0100003 
single precision number ? 0.1 
tan ( 0.1 ) is equal to .100335 
single precision number ? 1 
tan ( 1 ) is equal to 1.55741 
single precision number ? 10 
tan ( 10 ) is equal to .64836 
single precision number ? 100 
tan ( 100 ) is equal to -.587219 
single precision number ? 1000 
tan ( 1000 ) is equal to 1.47022 
single precision number ? 10000 
tan ( 10000 ) is equal to .320178 
single precision number ? 100000 
tan ( 100000 ) is equal to -.0368412 
single precision number ? 

0k 


sion number ? ',0 
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3 5 8 3 H : * 




3 5 8 3 H 

*-*- k i 
A, F 

*-*- KA‘ h<7)Af] btiZi Xrfth, Afj^btz^lz 

(±, Atl $ hfz =i — b* £T * J.A.U — ?lz AtlXi t'') it. 





input and display character code - 




ORG 

0B900H 

B900 

CD8335 

LOOP: CALL 

3583H 

B903 

FE03 

CP 

03H 

B905 

C8 

RET 

Z 

B906 

CD11B9 

CALL 

DSPACC 

B909 

3E20 

LD 

A,' ' 

B90B 

CD0D3E 

CALL 

3E0DH 

B90E 

C300B9 

JP 

LOOP 


i*input character from keyboard 
; check break code 
J return to basic 

» display character code 


; display accumulator hexa decimal subroutine 


destroys : register a,f,b 


B911 

47 

DSPACC:LD 

B, A 

B912 

OF 

RRCA 


B913 

OF 

RRCA 


B914 

OF 

RRCA 


B915 

OF 

RRCA 


B916 

CD1AB9 

CALL 

HALF 

B919 

78 

LD 

A, B 

B91A 

E60F 

HALF J AND 

OFH 

B91C 

FEOA 

CP 

10 

B91E 

3802 

JR 

C,NUMBER 

B920 

C607 

ADD 

A,7 

B922 

C630 

NUMBER:ADD 

A.30H 

B924 

CD0D3E 

CALL 

3E0DH 

B927 

C9 

RET 



display a character 


a=&hb900:ca11 a 

64 77 76 75 74 72 71 70 6F 6E 6D 6C 6A 69 72 75 


6E 0D 0C 2F 2D 36 35 


3D 35 


34 


31 
















35C2H \ X\"y7° • x "j 9 1 


3 5 C 2 H 

t. h "j y • +-co-^x 'vyk'rits. 7. 

A, F 

X h ■■/ 7° • %—<r> XtJfrM-fo h tUtl£ %■ -v U •77/(CY)Jl 
(c-fc-y h L, Z i ') -77/(CY) ^OtCJ-t'y h IT it"') 

i-t. 

E 6 CAH#iiil<7)T'— 0 3H (CTRL - C) £ tz 

ii 0 4 H (CTRL-D) X-btlli** 1 ) ■ 77 / (CY) Sr-fe-y h 
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■f >~7 Ji' 




.- 

check 

stop key test progr 




0RG 

0B900H 

B900 

2122B9 

LOOP: 

LD 

HL,MESAGE 

B903 

CD19B9 


CALL 

DSPMSG 

B906 

CD0FB9 


CALL 

LIAIT 

B909 

CDC235 


CALL 

35C2H 

B90C 

30F2 


JR 

NC.L00P 

B90E 

C9 


RET 




; wait 

subroutine 

B90F 

0EFF 

WAIT: 

LD 

C.0FFH 

B911 

06FF 

UAIT1: 

LD 

B.0FFH 

B913 

10FE 

UAIT2: 

DJNZ 

UAIT2 

B915 

00 


DEC 

C 

B916 

20F9 


JR 

NZ.UAITl 

B918 

C9 


RET 




f 

» display message subroutine 

B919 

7E 

DSPMSG 

:LD 

A , (HL) 

B91A 

A7 


AND 

A 

B91B 

C8 


RET 

Z 

B91C 

CD0D3E 


CALL 

3E0DH 

B91F 

23 


INC 

HL 

B920 

18F7 


JR 

DSPMSG 


* message area 

B922 68697420 MESAGE:DEFB 'hit stop key please 

B926 73746F70 

B92A 206B6579 

B92E 20706C65 

B932 61736520 

B936 21210D0A 

B93A 00 


a=&hb900:ca11 a 
hit stop key please 11 
hit stop key please !! 
hit stop key please 1 • 

Break 

Ok 


wait a moment 
#check stop key 

return to basic 


display a character 

! ! ',ODH,OAH,0 
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3 5 C E H : ') 7)V»-9 4 l 


3 5 CEH 

1)71^ • ?<f A&* —A*£fr4'?. 

A, F 

A- — ;K— KSrX^rvU A^J* f i8i6fefLirltil(f-feD • 77 
7* (Z ) £ 1 tc-fe-y h L, ^r—- 77/ (Z) Sr 0 I- ') 
-fey 1 L, 7 =>r ^ A fe - ? tfe A* => — KSrt&ifrtLTi i"') i1\ 

3 5 8 3 H#ifi<7)-y-7';u— ■fvCIi*— I Titbit il"**, 

ZW7)V— f-vTiiA- — < I) tzsb, l>!t_h 

Ol^BfMllSrfr&r 7 i1\ Nss-BASIC 3£<7)INKEY $ £ |W|^c7)-fe7';fe 

—■f'V "Ci - . 


y 7 K ux 


« Hi 


u-->X:? 


SI Si 
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V- > 7";u 


J - real time key scanning - 




ORG 

0B900H 

B900 

2136B9 

LOOPL: LD 

HL,MESAGE 

B903 

CD2DB9 

CALL 

DSPMSG 

B906 

0614 

LD 

B, 20 

B908 

CDCE35 

LOOPS: CALL 

35CEH 

B90B 

200C 

JR 

NZ.YESIN 

B90D 

CD24B9 

CALL 

UAIT 

B910 

3E3E 

LD 

A,' >' 

B912 

CD0D3E 

CALL 

3E0DH 

B915 

10F1 

OJNZ 

LOOPS 

B917 

18E7 

JR 

LOOPL 

B919 

F5 

VESIN: PUSH 

AF 

B91A 

3E20 

LD 

A,' ' 

B91C 

CD0D3E 

CALL 

3E0DH 

B91F 

FI 

POP 

AF 

B920 

CD0D3E 

CALL 

3E0DH 

B923 

C9 

RET 




; wait subroutine 

B924 

21FF0F 

UAIT: LD 

HL.0FFFH 

B927 

2B 

UAIT1: DEC 

HL 

B928 

7C 

LD 

A,H 

B929 

B5 

•OR 

L 

B92A 

20FB 

JR 

NZ.UAITl 

B92C 

C9 

RET 




5 display message subr 

B92D 

7E 

DSPMSG:LD 

A,(HL) 

B92E 

A7 

AND 

A 

B92F 

C8 

RET 

Z 

B930 

CD0D3E 

CALL 

3E0DH 

B933 

23 

INC 

HL 

B934 

18F7 

JR 

DSPMSG 


; set loop counter 
;#real time key scanning 

• wait a moment 

; display a character 


; echo-back a input character 
; return to basic 


ine 

; display a character 


J message area 

B936 0D0A6869 MESAGE:DEFB ODH,OAH,'hit any key ',0 
B93A 7420616E 
B93E 79206B65 
B942 792000 


a=&hb900 seal 1 a 


hit any key 
hit any key 
hit any key 
hit any key 
hit any key 
hit any key 
hit any key 
hit any key 
hit any key 
Ok 


>>>>>>>>>>>>>>>>>>>> 
>>>>>>>>>>>>>>>>>>>> 
>>>>>>>>>>>>>>>>>>>> 
>>>>>>>>>>>>>>>>>>>> 
>>>>>>>>>>>>>>>>>>>> 
>>>>>>>>>>>>>>>>>>>> 
>>>>>>>>>>>>>>>>>>>> 
>>>>>>>>>>>>>>>>>>>> 
>>>>>>>>>>>>>>>> X 
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3 6 9 AH : 1 -tr^?<7)A£t!*l£fr4'9 


3 6 9 A H 

7<x?i 1 -b^ -5. 

A, F, D, E, H, L 

rU z.7A&t!<Vfzibc7)M:i ) £%:&jr r fr'3#$h%-y-7‘;i—j->T, 
N-BASICS 0 0 9 9 HSitiitcffl St* i<7)Vt. 

A tj''°7S — ?li%cD£ i 0 T", < £T§v\ 

EC85HM «- F'X'fT-(Ofrk) 

E F 5 D H #Jft <- K 7 4 7<r> 9 J 7 ( 0 ~ 3 ) 



U x X 7 B <— 1-77^ '+>^' (Oi't) 

w x X;? C <— (lfrfj) 

W7X7HL «- f*— 9 t&ffi y -t 0 «0 h '/ 7" • T K1^ X 
7-f h 0-K, "<0 7 t^X)^(±77 

7^ FX>m, * + iJ • 77/ (CY) ^7 F LJ-T. 

0 - KX>m, -fe"n • 77 / ( Z ) £ U-fe -7 h L i 1\ 

-4V 7 T 4 com, -b'o • 77 / (Z ) £-fe-y h L it. 
i7-«4US^:l«-f'J - 77/(CY) HvUt, *7tHS(t 
tlti’ <) -tv b LXi t'0 it. tzt* l^i)7r^ cojggii iJ-K • 77/ • 7-f 
F it. 

ifcft5cLfc Kx^f F 7 7 / • 


l±SS5£, ffi&<om^l±#ffi£T7^xt£tt>t-7i'f xx>*g5e(±-E^£, 
0 i-frt. 


t > x”;u 




; - control disk - 






ORG 

0B900H 




B900 

217DB9 

LD 

HL.MSGDR 




B9C3 

CD74B9 

CALL 

DSPMSG 




B906 

CD58B9 

CALL 

INDEC 




B909 

3D 

DEC 

A 




B90A 

3285EC 

LD 

(0EC85H),A 

{ set 

drive 

number 

B90D 

CDCB3D 

CALL 

3DCBH 

; set 

type 

of drive 

B910 

2189B9 

LD 

HL.MSGTR 




B913 

CD74B9 

CALL 

DSPMSG 




B916 

CD58B9 

CALL 

INDEC 




B919 

47 

LD 

B, A 

; set 

track 

number 
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B91A 2195B9 
B91D CD74B9 
B920 CD58B9 
B923 4F 

B924 21A1B9 
B927 CD74B9 
B92A CD8335 
B92D CD0D3E 

B930 FE77 
B932 2813 
B934 FE72 
B936 2812 
B938 FE76 
B93A 2812 
B93C 1813 

B93E 2100BA 
B941 CD9A36 
B944 380B 
B946 C9 

B947 37 
B948 18F4 

B94A AF 
B94B 3C 
B94C 18F0 

B94E AF 
B94F 18ED 

B951 21BCB9 
B954 CD74B9 
B957 C9 


B958 1E00 
B95A 3E30 

B95C F5 
B95D 7B 
B95E 87 
B95F 87 
B960 83 
B961 87 
B962 5F 
B963 FI 
B964 D630 
B966 83 
B967 5F 

B968 CD8335 
B96B CDOD3E 

B96E FEOD 
B970 20EA 

B972 7B 
B973 C9 


B974 7E 
B975 A7 
B976 C8 
B977 CDOD3E 
B97A 23 
B97B 18F7 



LD 

HL,MSGSEC 


CALL 

DSPMSG 


CALL 

INDEC 


LD 

C, A 


LD 

HL.MSGWRV 


CALL 

DSPMSG 


CALL 

3583H 


CALL 

3E0DH 


CP 

' u' 


JR 

Z,WRITE 


CP 

' r' 


JR 

Z,READ 


CP 

' u' 


JR 

Z,VERIFY 


JR 

ERROR 

CTRLDS 

:LD 

HL,BUFFER 


CALL 

369AH 


JR 

C,ERROR 


RET 


WRITE: 

SCF 



JR 

CTRLDS 

READ: 

XOR 

A 


INC 

A 


JR 

CTRLDS 

VERIFY 

: XOR 

A 


JR 

CTRLDS 

ERROR: 

LD 

HL,MSGERR 


CALL 

RET 

DSPMSG 

* input decimal number subrout 

J outputs : input number i» 

; destroys : register a,f,e 

INDEC: 

LD 

E ,0 


LD 

A,' 0' 

iNLOOP: 

:PUSH 

AF 


LD 

A,E 


ADD 

A,A 


ADD 

A,A 


ADD 

A,E 


ADD 

A,A 


LD 

E, A 


POP 

AF 


SUB 

'O' 


ADD 

A, E 


LD 

E,A 


CALL 

3583H 


CALL 

3E0DH 


CP 

ODH 


JR 

NZ,INLOOP 


LD 

A,E 


RET 



! display message subroutine 

DSPMSG:LD A,(HL) 

AND A 
RET Z 
CALL 3E0DH 
INC HL 
JR DSPMSG 


; set sector number 


; input a character from keyboard 
* echo-back a character 


* set top address of buffer 
{^control disk 

* return to basic 
; set carry flag 

» reset carry flag 
> reset zero flag 

* reset carry and set zero flag 

! error, return to basic 

ine 

accumu1ator 

initialize input number 
initialize input character 


e <— e * 10 + input number 


input a character from keyboard 
echo-back a character 


# display a character 
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message area 


B97D 0D0A6472 
B981 69766520 
B985 203F2000 
B989 0D0A7472 
B98D 61636B20 
B991 203F2000 
B995 0D0A7365 
B999 63746F72 
B99D 203F2000 
B9A1 0D0A7772 
B9A5 6974652C 
B9A9 20726561 
B9AD 64206F72 
B9B1 20766572 
B9B5 69667920 
B9B9 3F2000 
B9BC 0D0A6572 
B9C0 726F7220 
B9C4 21210700 


MSGDR: DEFB 0DH,0AH,'drive ? ',0 
MSGTR: DEFB ODH.OAH,'track ? ' ,0 
MSGSEC:DEFB ODH.OAH,'sector ? ',0 
MSGURV:DEFB ODH.OAH,'write, read or verify ? 


MSGERR:DEFB 0DH,OAH,'error !! ',07H,0 


' ,0 


; equate buffer area 


BA00 


BUFFER:EQU 


0BA00H 


a=&hb900 Seal 1 a 

drive ? 1 
track ? 0 
sector ? 1 

urite, read or verify ? r 

Ok 

mon 


hDdbaOO,baff 


BA00 

21 

00 

84 

AF 

32 

B4 

EC 

01 

02 

00 

11 

11 

2D 

3A 

5D 

EF 

! «rJ2l® -:3\ 

BA10 

B7 

20 

04 

06 

02 

IE 

IB 

AF 

3C 

E5 

D5 

C5 

CD 

9A 

36 

Cl 

+ 9<kI*A*6* 

BA20 

D1 

El 

30 

08 

3A 

B4 

EC 

FE 

03 

20 

EC 

C9 

AF 

32 

B4 

EC 

lx NO :!• •J-J 21# 

BA30 

15 

28 

0B 

oc 

24 

7B 

B9 

20 

DE 

04 

OE 

01 

18 

D9 

CD 

00 

( * JtA 

BA40 

84 

C3 

00 

88 

22 

E8 

E7 

C9 

06 

28 

21 

60 

CO 

5E 

23 

56 

-7 1 ’*rj (! 

BA50 

23 

4E 

23 

7E 

23 

EB 

36 

C3 

23 

71 

23 

77 

EB 

10 

EE 

C9 

#N#~#*6r#q#u* /J 

BA60 

DC 

EC 

AC 

D9 

C4 

EC 

A2 

DO 

Cl 

EC 

DE 

D9 

DO 

EC 

14 

D4 

t 

BA70 

AE 

ED 

8E 

D9 

E8 

EC 

A4 

D4 

B1 

ED 

4A 

CE 

EE 

EC 

EB 

D4 

a0»|,4#s 77CU*/#** 

BA80 

FI 

EC 

6F 

D9 

F 4 

EC 

82 

D9 

6F 

ED 

FE 

CF 

AB 

ED 

El 

CE 

n«b*B«ULoO 7*OW 

BA90 

FF 

ED 

76 

CE 

BB 

EC 

4B 

C3 

D3 

EC 

D8 

ED 

D6 

EC 

D8 

ED 

Ov*?«Krf«UOg*JO 

BAA0 

9F 

ED 

D8 

ED 

A2 

ED 

D8 

ED 

A2 

ED 

A5 

ED 

A8 

ED 

D8 

ED 

^OJO r OJO r OO/OJO 

BAB0 

74 

EE 

D8 

ED 

77 

EE 

D8 

ED 

7 A 

EE 

EO 

DB 

7D 

EE 

22 

C2 


BAC0 

80 

EE 

CC 

DA 

83 

EE 

F6 

DA 

86 

EE 

A5 

DE 

89 

EE 

6D 

DB 

/mo 

BAD0 

9C 

EE 

56 

D2 

8F 

EE 

96 

CE 

92 

EE 

8A 

DO 

95 

EE 

08 

D5 

■ 1 

BAE0 

98 

EE 

36 

D5 

9B 

EE 

49 

D3 

9E 

EE 

44 

D3 

BC 

EE 

00 

Cl 

r/61 J /I t VDf 2// 1 

BAF0 

BF 

EE 

23 

DA 

C2 

EE 

E7 

D9 

C5 

EE 

A2 

DE 

C8 

EE 

EC 

C2 



hlTb 

Ok 

a=&hb900leal 1 a 

drive ? 1 
track ? 0 
sector ? 1 

urite, read or verify ? x 
error !! 

Ok 
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36E2H! PC-803 1 <7M -is?1. 


3 6 E 2 H 

PC - 8 0 3 1 <04 

A, F, D 


4 >T *) i? 3.V h • y 4 7“(7) i — • 7 o y t° • T A X 9 • 7-— >y h 
(P C—8 0 3 1 ifcliPC - 8 0 3 1 - 2 W|W]^n a B ) t<r>4 > ? 7x-x£ A 
-i'Ty'IXl, ^yT7^X' 37>K«Mt, 
<7)%.*T*j-M.U-?lzfeMLXht' r ) it. 

T A X? • i--y h A { *«icc7)i#^-(c|±r Jf 0 0 H ^ ^ ft i 

t. 


■^>7 p ;i/ 




;-count 

connected drives of 

pc-8031 — 



0RG 

0B900H 


B900 

CDE236 

CALL 

36E2H ; 

; send initialize command to 8031 

B903 

C630 

ADD 

A,'O' ; 

I convert into a character 

B905 

CD0D3E 

CALL 

3E0DH ; 

! display a character 

B908 

2118B9 

LD 

HL,MESAGE 


B90B 

CD0FB9 

CALL 

DSPMSG 


B90E 

C9 

RET 


return to basic 



J display message subroutine 


B90F 

7E 

DSPMSG:LD 

A,< HL) 


B910 

A7 

AND 

A 


B911 

C8 

RET 

Z 


B912 

CD0D3E 

CALL 

3E0DH ; 

display a character 

B915 

23 

INC 

HL 


B916 

18F7 

JR 

DSPMSG 




; message area 


B918 

20647269 

MESAGE:DEFB 

drives are connected !!',0DH.0AH.0 

B91C 

76657320 





B920 61726520 
B924 636F6E6E 
B928 65637465 
B92C 64202121 
B930 0D0A00 



a=&hb900:cal1 a 

2 drives are connected !! 

Ok 
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37C9H : PC-803 1^□v> K S 


3 7 C 9 H 

PC - 8 0 3 1 W K*»«**. 

A, F 

7 % j- M.U — 7 titz 1 '<4 h<7)f'— 7£, 'OT')i?3L> 

h • 9 4 7‘<T> i - • 7 o y t° • rU X 9 • v h (PC- 8 0 3 1 ifcliPC 
- 8 0 3 1 - 2Wf) 1C, =^> Yk ixmm Ltt. 

j2§fS7l>T'— YXfobfrT— 7T'#> A >Fyi-< ? 

tfOl^lcATNffl-t^-t'y h-fe-y 



ft? Ifc 




initialize pc-8031 - 




ORG 

0B900H 


B900 

3E00 

LD 

A ,0 

; set initialize command 

B902 

CDC937 

CALL 

37C9H 

; send command byte to pc 

B905 

2115B9 

LD 

HL,MESAGE 


B908 

CD0CB9 

CALL 

DSPMSG 


B90B 

C9 

RET 


; return to basic 



; display message subroutine 


B90C 

7E 

DSPMSG:LD 

A,(HL) 


B90D 

A7 

AND 

A 


B90E 

C8 

RET 

Z 


B90F 

CD0D3E 

CALL 

3E0DH 

» display a character 

B912 

23 

INC 

HL 


B913 

18F7 

JR 

DSPMSG 




; message area 


B915 

696E6974 

MESAGEjDEFB 

' initialized ! !'. 

, ODH,OAH,0 

B919 

69616C69 




B91D 

7A656420 




B921 

21210D0A 




B925 

00 





a=&hb900:cal1 a 
initialized !! 
Ok 
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37D2H:PC-8031 



3 7 D 2 H 
PC —8 0 3 
F 


riM'fgf 5. 


St 


->'*> h • 9 A -f<n 5 — • 7 D -y h° • T'-f x ^ • JL— -y b 
(PC- 8 0 3 1 ifcl±PC- 8 0 3 1-2W) 'x, 7*aAl/-7«0f-7 1 
h £HHSLT& if) £1". 


i7-B#[C(i, *+>) • 77/ (CY) £-fe-y f- LSI-. 
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; - set up only drive 2 for single surface - 




ORG 

0B900H 




B900 

3E17 

LD 

A, 17H 




B902 

CDC937 

CALL 

37C9H 

; output 

a command 

to disk 

B905 

3E0D 

LD 

A.ODH 




B907 

CDD237 

CALL 

37D2H 

; output 

a data to 

disk 

B90A 

3E02 

LD 

A,02H 




B90C 

3265EF 

LD 

(0EF65H),A 




B90F 

211FB9 

LD 

HL.MESAGE 




B912 

CD16B9 

CALL 

DSPMSG 




B915 

C9 

RET 


; return 

to basic 



; display message subroutine 


B916 

7E 

DSPMSG:LD 

A,(HL) 



B917 

A7 

AND 

A 



B918 

C8 

RET 

Z 



B919 

CD0D3E 

CALL 

3E0DH 


; display a character 

B91C 

23 

INC 

HL 



B91D 

18F7 

JR 

DSPMSG 





; message area 



B91F 

ODOA 

MESAGE:DEFB 

0DH.0AH 



B921 

64726976 

DEFM 

'drive 1 for 

double 

surface !' 

B925 

65203120 





B929 

666F7220 





B92D 

646F7562 





B931 

6C652073 





B935 

75726661 





B939 

63652021 





B93D 

ODOA 

DEFB 

0DH,0AH 



B93F 

64726976 

DEFM 

'drive 2 for 

single 

surface !!' 

B943 

65203220 





B947 

666F7220 





B94B 

73696E67 





B94F 

6C652073 





B953 

75726661 





B957 

63652021 





B95B 

21 





B95C 

0D0A00 

DEFB 

0DH,0AH,0 




a=&hb900Seal 1 a 

drive 1 for double surface ! 
drive 2 for single surface !! 
Ok 
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3847H:PC-8031 £fr&'*5 


3 8 4 7 H 

PC - 8 0 3 1 £fr&"5. 

A, F 

4 >r') h -94 -f<r> \ - • 7D .y t' • T'4 X 7 • -y h 
(PC-8031£fcf± PC-8031- 2 Wf) 1 '<4 \<r)T-9 i £§: It 

IxO, if 1 ) St. 

fcfc'L. “^0fFalJilJi^o T^-f— ^7i''jlla?lvC5|5 : S:V'±§'g-(ci±, Y—9 i i : 
SlUi-TtcJf-v <) - 77/(CY) £ 1 tc-fey h-f &cr>frTi> t*9 if. 


|7 KPX 1 

% HB 

1 

IT 
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;-check 

the unit pc-8031 



0RG 

0B900H 

B900 

3E0B 

LD 

A,0BH 

B902 

CDC937 

CALL 

37C9H 

B905 

3E07 

LD 

A.07H 

B907 

CDD237 

CALL 

37D2H 

B90A 

3EEF 

LD 

A.0EFH 

B90C 

CDD237 

CALL 

37D2H 

B90F 

3E00 

LD 

A,00H 

B911 

CDD237 

CALL 

37D2H 

B914 

3E01 

LD 

A.01H 

B916 

CDD237 

CALL 

37D2H 

B919 

CD4738 

CALL 

3847H 

B91C 

2F 

CPL 


B91D 

E6F0 

AND 

0F0H 

B91F 

FE10 

CP 

10H 

B921 

2007 

JR 

NZ,N0T2U 

B923 

213AB9 

YES2UI: LD 

HL.MSG2U 

B926 

CD31B9 

CALL 

DSPMSG 

B929 

C9 

RET 


B92A 

2157B9 

N0T2U: LD 

HL,MSG1V 

B92D 

CD31B9 

CALL 

DSPMSG 

B930 

C9 

RET 



or pc-8031~2u - 


; transmit command in accumulator 
; send command byte to pc-8031 

; address high byte 
; send a date to pc-8031 
; address low byte 
; send a data to pc-8031 

; number of datum high byte 
; send a data to pc-8031 
; number of datum 1ow byte 
; send a data to pc-8031 

; receive a data from pc-8031 


; return to basic 


; return to basic 


display message subroutine 


B931 7E 
B932 A7 
B933 C8 
B934 CD0D3E 
B937 23 
B938 18F7 


DSPMSG:LD A,(HL) 
AND A 
RET Z 
CALL 3E0DH 
INC HL 
JR DSPMSG 


display a character 


message area 

B93A 70632D38 MSG2U: DEFB 'pc-8031-2w is connected !!',0DH,0AH,0 

B93E 3033312D 

B942 32772069 

B946 7320636F 

B94A 6E6E6563 

B94E 74656420 

B952 21210D0A 

B956 00 

B957 6E6F7420 MSG1V: DEFB 'not P c-8031-2w !! ,0DH,0AH,0 

B95B 70632D38 

B95F 3033312D 

B963 32772021 

B967 210D0A00 


a=&hb900:cal 1 a 
pc-8031-2w is connected !! 
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3 D C B H : x-f 7? • ~?'(F)9 4 7°£iiK5 


3 DCBH 

‘r***’ Ym<h941\ r*K*. 

A, F, H, L 

7ifaAl/-^«K7'f7''t>A (074) {C WeSi" J 

^O^'I'r («&) SrPK, ttxj,u-9isU/EF 5 DH#M(c^LT i t' 

^ i 1". K 7 4 '«7> £ a 0 x-t. 

DM AfcmH^lz J: & 8 4 >tcot£g-o ttcV it. 

<fc’«> 5 4 >t<r>t£'&l t^n it. 

4 >t<) i?3.> b ■ 9 4 7Xtrm<nt£'fr2 tZO it. 

4 >t <) i?j.> h ■ 9 4 7-CPifflcD i£4i 3 b £r ') i t. 

N88 - B A S I CTiiE F 6 4 H#J474-g- Yy4 f<F>9 4 ttfellft LXt>0, 
3 D C B H Wrtlkt cott^l—t > X'li, ZCOV — 9 • x. i) T9>t—9 0 tB 

LT^'J t. 


7 K ux 


\si>X9 


check type of drive - 





0RG 

0B900H 

B900 

2146B9 

START: 

: LD 

HL,PROMPT 

B903 

CD3DB9 


CALL 

DSPMSG 

B906 

CD8335 

* 

CALL 

3583H 

B909 

CD0D3E 


CALL 

3E0DH 

B90C 

FE03 


CP 

03H 

B90E 

C8 


RET 

Z 

B90F 

FE31 


CP 

'1' 

B911 

38ED 


JR 

C,START 

B913 

FE39 


CP 

' 8' +1 

B915 

30E9 


JR 

NC,START 

B917 

D630 

* 

SUB 

'0' 

B919 

3D 


DEC 

A 

B91A 

CDCB3D 


CALL 

3DCBH 

B91D 

A7 

* 

AND 

A 

B91E 

2005 


JR 

NZ.NOTO 

B920 

215BB9 


LD 

HL,ANS0 

B923 

1813 


JR 

DSPLAY 

B925 

3D 

N0T0: 

DEC 

A 

B926 

2005 


JR 

NZ,NOT1 

B928 

216DB9 


LD 

HL,ANSI 

B92B 

180B 


JR 

DSPLAY 

B92D 

3D 

N0T1: 

DEC 

A 

B92E 

2005 


JR 

NZ.N0T2 

B930 

217FB9 


LD 

HL,ANS2 

B933 

1803 


JR 

DSPLAY 


» input a character from keyboard 
; echo-back a character 

* stop key, return to basic 

♦ error, input drive number again 
5 error, input drive number again 
; convert into binary code 

;«get type of drive 
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B935 219BB9 
B938 CD3DB9 
B93B 18C3 


B93D 7E 
B93E A7 
B93F C8 
B940 CD0D3E 
B943 23 
B944 18F7 


N0T2: LD HL.ANS3 
DSPLAY:CALL DSPMSG 
JR START 

; display message subroutine 

DSPMSG:LD A,(HL) 

' AND A 
RET Z 
CALL 3E0DH 
INC HL 
JR DSPMSG 


display type of drive 


display a character 


message area 

B946 0D0A6E75 PROMPT:DEFB 0DH,0AH,'number of drive ? 
B94A 6D626572 
B94E 206F6620 
B952 64726976 
B956 65203F20 
B95A 00 

B95B 0D0A646D ANSO: 

B95F 61203820 
B963 696E6368 
B967 65732021 
B96B 2100 

B96D 0D0A646D ANSI: 

B971 61203520 
B975 696E6368 
B979 65732021 
B97D 2100 

B97F 0D0A696E ANS2: 

B983 74656C6C 
B987 6967656E 
B98B 74207369 
B98F 6E676C65 
B993 20737572 
B997 20212100 
B99B 0D0A696E ANS3: 

B99F 74656C6C 
B9A3 6967656E 
B9A7 7420646F 
B9AB 75626C65 
B9AF 20737572 
B9B3 20212100 


DEFB 0DH,0AH,'dma 8 inches M',0 


DEFB 0DH,0AH,'dma 5 inches M',0 


DEFB 0DH.0AH,'intel1igent single sur 


' ,0 


DEFB 0DH.0AH,'intel1igent double sur !!',0 


a=&hb900:cal1 a 


number of drive ? 0 
number of drive ? 1 
intelligent double sur 11 
number of drive ? 2 
intelligent double sur 11 
number of drive ? 

Ok 
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3DD9H: PC-803 1 C T)Y =7 4 ~f - 


3 DD 9 H 

PC- 8 0 3 1 0 Kv-ry • 

A, F, H, L 

DMAlfcii^sSK±6 8 4 >+<n h'y^-r, DMAei^lcJ: %> 

5 4 >i-<F> V 7 4 y, 4 >t ') : J 3 -> Y ■ 9 'i yen Y’7 4 7 ‘ikXkStbtz Y’7 4 
y • +>'<$:¥. C 8 5 HlcfSIrtL-rn — ivth^z i-oX, T* 3 -i+v — 9 \zA 

>-f <) -y x. > y ■ 9 'i y<r>A.cr> y° 7 4 y • gy. 

*1W-Jlc(A, EC8 5H#i&c r>r‘~9i^, DM Aljj^iz J: & 8 -i >f-<7) V 7 
'i y& (E F 6 0 H Hit) A> it/'DMA Jj^lz j: £ 5 -i K 7 4 y^L (E F 

6 1 H#it) ZMttzr'— 9lzi§-z-£ t. 



124 









1 


; - calculate drive number of pc-8031 




0RG 

0B900H 

B900 

2133B9 

LD 

HL,PROMPT 

B903 

CD2AB9 

CALL 

DSPMSG 

B906 

CD8335 

CALL 

3583H 

B909 

FE31 

CP 

'1' 

B90B 

D8 

RET 

C 

B90C 

FE39 

CP 

' 8' +1 

B90E 

DO 

RET 

NC 

B90F 

CD0D3E 

CALL 

3E0DH 

B912 

0630 

SUB 

'O' 

B914 

3D 

DEC 

A 

B915 

3285EC 

LD 

(0EC85H),/ 

B918 

CDD93D 

CALL 

3DD9H 

B91B 

3C 

INC 

A 

B91C 

C630 

ADD 

A,'0' 

B91E 

47 

LD 

B, A 

B91F 

2150B9 

LD 

HL,ANSWER 

B922 

CD2AB9 

CALL 

DSPMSG 

B925 

78 

LD 

A,B 

B926 

CD0D3E 

CALL 

3E0DH 

B929 

C9 

RET 




; display message subi 

B92A 

7E 

DSPMSGsLD 

A,(HL) 

B92B 

A7 

AND 

A 

B92C 

C8 

RET 

Z 

B92D 

CD0D3E 

CALL 

3E0DH 

B930 

23 

INC 

HL 

B931 

18F7 

JR 

DSPMSG 


; input a character from keyboard 

; error, return to basic 

; error, return to basic 

{ echo-back a character 
; convert into binary code 

{^calculate drive number of 8031 
; convert into character code 

; display the result 
; return to basic 

; display a character 


; message area 

B933 0D0A6472 PROMPT:DEFB 0DH,0AH,'drive number from one ? ',0 

B937 69766520 

B93B 6E756D62 

B93F 65722066 

B943 726F6D20 

B947 6F6E6520 

B94B 20203F20 

B94F 00 , r , n 

B950 0D0A6472 ANSWER:DEFB 0DH.0AH, drive number of pc-8031 : ,0 

B954 69766520 

B958 6E756D62 

B95C 6572206F 

B960 66207063 

B964 2D383033 

B968 31203A20 

B96C 00 


a=&hb900 seal 1 a 

drive number from one ? 1 
drive number of pc-8031 S 1 
0k 


125 




3E0DH . C R T X ^ !J — 's \ h fcB & 9 


T K ux I 3 E 0 DH 

ftE >E 1 CRTXX'J— >1 h mtifcfft): 
Ui>X9 I 


St | 9<r>T— 9 1 '<J h £, 


ti'tilMlz & J] L i 1\ 


■? . 

CRTX? IJ— >±<7)^7 — y 


T—9h < 2. 0 H W±<7)if'^|c|Jii'ffi-<7)3f ^ 7 9 9 t LXX9 ') — >±tc^Rl 
2 0 H^ij^c7)3 > h o — ;u • 3— Kf&fl (i'C R TX X 'J — ><7> 9') 7 
^ti— y;K7)#tti% 3> h d—; u • 3 — Ki l-tx>fjjfts£fr&^i1\ 




display characters - 




ORG 

0B900H 

B900 

3E20 

LD 

A,20H 

B902 

CD0D3E 

LOOP: CALL 

3E0DH 

B905 

3C 

INC 

A 

B906 

FEOO 

CP 

OFFH+1 

B908 

20F8 

JR 

NZ«LOOP 

B90A 

C9 

RET 



^output a character to crt screen 


return to basic 


a=&hb900:cal 1 a 

'* #**&'<>*+,-./0123456789:;< = >?@ABCDEFGHIJKLMNOPQRSTUVUX YZCVr_'abcdefghijk1mno 
pqrstuuuxyzC : ) —I I 11 iB-H-H h — I In u n u o r j . • 97 < 9 x * > j a “J-JIOH n* / 7 l J iVyJtV 
9fVT h7TX?y/\fc7'\*7$AXf • = H=* ▲▼4^MCVNxn^Bi|1« 

Ok 
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3 EC 0 H : h a-JUtZ 


7 KUX 


m m 




m ia 


E P 0 ) i: 
EEP 1 ) 




B900 160A 

B902 OEOl 

B904 4i 
B905 CD1CB9 
B908 10FE 

B90A 41 
B90B CD17B9 
B90E 10FE 

B910 OC 
B911 20F1 

B913 15 
B914 20EC 

B916 C9 


B917 AF 
B918 CDC03E 
B91B C9 


B91C 3E01 
B91E CDC03E 
B921 C9 


3 EC 0 H 

A, F 

o <r>yk&\z £ 0 F F (BE 

, T^Al/-W-^0 &It £ o N ( B 

Jw L&t. 


; - american patrol siren 



ORG 

0B900H 


LD 

D, 10 

L00P1: 

LD 

C,1 

L00P2: 

LD 

B ,C 


CALL 

BEEP1 

THISls 

DJNZ 

THIS1 

’ 

LD 

B, C 


CALL 

BEEPO 

THIS2: 

DJNZ 

THIS2 

9 

INC 

C 


JR 

NZ.L00P2 

9 

DEC 

D 


JR 

NZ.L00P1 


RET 


; buzzer off subrout: 

BEEPO: 

XOR 

A 


CALL 

RET 

3EC0H 

; buzzer on 

subroutii 

BEEP1: 

LD 

A , 1 


CALL 

RET 

3EC0H 


return to basic 


control buzzer 


control buzzer 
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3 E D 4 H : yij >?^(D 1 h fcfc 


3 E D 4 H 

yj >?^ 0 ) 1 /<-* h hb*«r?r4‘-3. 

T % a- AU — 9<T)t'— 9 1 '<4 h £, 7°'J > ?' N -dj4 LiT. 44* 
Libftfiffijtc, TV — 

? • 3— Kc 7 )A*A f ^^a4l|F-^(c(±7" >; > ^^<7)fib^$r±i6-r & if ') £ i*. 



t>yjp 


- output message to printer - 





ORG 

0B900H 


B900 

210DB9 


LD 

HL,MESAGE 


B903 

7E 

LOOP: 

LD 

A,(HL > 

; get a character 

B904 

FE00 


CP 

0 

; check end mark 

B906 

C8 


RET 

Z 

• return to basic 

B907 

CDD43E 


CALL 

3ED4H 

;*output a character 

B90A 

23 


INC 

HL 

; increment pointer 

B90B 

18F6 


JR 

LOOP 



; message area 

B90D 6F757470 MESAGE:DEFB 'output message for printer *',0DH,0 

B911 7574206D 

B915 65737361 

B919 67652066 

B91D 6F722070 

B921 72696E74 

B925 65722021 

B929 0D00 


output message for printer ! 
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4 0 4 7 H : 9 4 v#'b-r — hr4' 1 


4 0 4 7 H 

? -f vi'bf -7 4 9 . 

A, F, B, C, D, E, H, L 

~m~ m | ''-y • 9 &*&•), v-? • xur (fo o dh~ 

FO 1 2#i&) lcf&lftL£1\ ZtlZftlftf'— fit B C D 3 — Ktc^g&L fSIrt L 
it* 5 ', MONTH (FO 1 1 HSiife) <?)<&( ± (FO ft T", t'J • 3—K 


T K 


« IH 




£ L-ctelrtLit. 

JilTlc, M • I'] Lit. 


F 0 0 D H $M 
F 0 0 EHi 
FOOFHi 
F 0 1 0 Hi 
FO 1 1 Hi 
F 0 1 2 H Sit 


SECOND (#:BCD3- ) 

M I NUTE (# : BCD3- Kj 
HOUR (I|!BCD3-F) 
DAY (B : BCD3-K) 

MONTH (fl : ■'tt'J • 3- K) 
YEAR (#■ : BCD3-F) 


| tV'TOt' 


; - read from timer 

ORG 0B900H 


; read from timer section 


B900 CD4740 CALL 4047H 


; display date section 


B903 

2173B9 


LD 

HL,ADATE 

B906 

CD6AB9 


CALL 

DSPMSG 

B909 

2112F0 

9 

LD 

HL,0F012H 

B90C 

0603 


LD 

B , 3 

B90E 

7E 

LDATE: 

LD 

A,< HL) 

B90F 

2B 


DEC 

HL 

B910 

48 

9 

LD 

C»B 

B911 

0D 


DEC 

C 

B912 

00 


DEC 

C 

B913 

2805 


JR 

Z,MONTH 

B915 

CD39B9 

9 

CALL 

BCDCHR 

B918 

1803 


JR 

SKIP 

B91A 

CD4CB9 

MONTH: 

CALL 

CMONTH 

B91D 

CD5CB9 

SKIP: 

CALL 

DSPDE 

B920 

10EC 


DJNZ 

LDATE 


;*read from timer 


; end address of date buffer 


; check minute or other 
; convert bed into 2 characters 


; convert month into 2 characters 
; display two characters in reg-de 
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display time section 


B922 

218AB9 

LD 

HL,ATIME 

B925 

CD6AB9 

CALL 

DSPMSG 

B928 

210FFO 

1 

LD 

HL.0F012H-3 

B92B 

0603 

LD 

B,3 

B92D 

7E 

LTIME: LD 

A,(HL) 

B92E 

2B 

DEC 

HL 

B92F 

CD39B9 

CALL 

BCDCHR 

B932 

CD5CB9 

CALL 

DSPDE 

B935 

IB 

DEC 

DE 

B936 

10F5 

DJNZ 

LTIME 

B938 

C9 

RET 



; end address of date buffer 


♦ convert bed into 2 characters 
; display tuo characters in reg-de 


; return to basic 


convert bed code into character code subroutine 


inputs : bed code in accumulator 
outputs : tuo characters in register de 
destroys : register a,f,d,e 


B939 

5F 

BCDCHR:LD 

E, A 

B93A 

CB3F 

SRL 

A 

B93C 

CB3F 

SRL 

A 

B93E 

CB3F 

SRL 

A 

B940 

CB3F 

SRL 

A 

B942 

C630 

ADD 

A,'( 

B944 

57 

LD 

D, A 

B945 

7B 

LD 

A,E 

B946 

E60F 

AND 

OFH 

B948 

C630 

ADD 

A,'( 

B94A 

5F 

LD 

E, A 

B94B 

C9 

RET 



convert month into character code subroutine 

inputs : month in accumulator 
outputs « tuo characters in register de 
destroys : register a,f,d,e 


B94C 

1630 ( 

:M0NTH:LD 

D,'0' 

B94E 

FEOA 

CP 

0AH 

B950 

3004 

JR 

NC,CMONT1 

B952 

C630 

ADD 

A, ' 0' 

B954 

5F 

LD 

E, A 

B955 

C9 

RET 


B956 

1631 CM0NT1:LD 

D ,' 1' 

B958 

C626 

ADD 

A, '0'-0AH 

B95A 

5F 

LD 

E, A 

B95B 

C9 

RET 



display tuo characters 


destroys J accumulator 


B95C 7A 
B95D CD0D3E 
B960 7B 
B961 CD0D3E 
B964 3E20 
B966 CD0D3E 
B969 C9 


DSPDE: LD A,D 

CALL 3E0DH 
LD A,E 
CALL 3E0DH 
LD A,' 
CALL 3E0DH 
RET 


display message subroutine 


; display a character 
* display a charecter 
> display a space code 


destroys : register a,f,h,l 
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B96A 7E 
B96B A7 
B96C C8 


DSPMSGtLD A,(HL) 


AND A 
RET Z 


B96D CD0D3E 
B970 23 
B971 18F7 


CALL 3E0DH 
INC HL 


; display a character 


JR DSPMSG 


message area 


B973 0D0A6461 ADATE: DEFB ODH.OAH,'date - yy mm dd —> ' ,0 

B977 7465202D 

B97B 20797920 

B97F 6D6D2064 

B983 64202D2D 

B987 3E2000 

B98A 0D0A7469 ATIME: DEFB ODH,OAH,'time - hh mm ss —> ' ,0 

B98E 6D65202D 

B992 20686820 

B996 6D6D2073 

B99A 73202D2D 

B99E 3E2000 


print date$:print time$ 

01/12/24 

00:39:27 

Ok 

a=&hb900:ca11 a 

date - yy mm dd —> 01 12 24 

time ~ hh mm ss —> 00 39 37 

Ok 

date$=*82/09/01*:time$=* 00:00:00 * 
Ok 

a=&hb900:ca11 a 

date — yy mm dd —> 82 09 01 

time - hh mm ss —> 00 00 08 

Ok 
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4 2 8 BH : 


4 2 8 B H 

tiTTlS# 

C RTX 7 U— *-V/u£^jn 

L £•£/-. fcfc'L, Nss-B A S I C^^-figfrk i]-'nvfors)V- j->&m 
*T?iU: '), C R T 3 > h o-7<0-r') Lfc^Kli, 
#—y ;uo*^7& { SgS $ ti £ T. 

CRT3>fD-7l;^jJ*-y;i-' a > Y u—)V • 37V K 
E 6 A 8 H#itblc8 0 H £j&*frf £*!;:,£ oT, 

£SSLt>'£ t. 
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+»• > -ffr 


- cursor on and off 

ORG 0B900H 


B900 

2136B9 LOOP: 

LD 

HL.MSGON 

B903 

CD2DB9 

CALL 

DSPMSG 

B906 

CD9042 

CALL 

4290H 

B909 

C01EB9 

CALL 

UAIT 

B90C 

2146B9 

LD 

HL.MSGOFF 

B90F 

CD2DB9 

CALL 

DSPMSG 

B912 

CD8B42 

CALL 

428BH 

B915 

CD1EB9 

CALL 

UAIT 

B918 

CDC235 

CALL 

35C2H 

B91B 

30E3 

JR 

NC,LOOP 

B91D 

C9 

RET 



wait subroutine 


B91E 

3E0F 

UAIT: 

LD 

A ,0FH 

B920 

OEFF 

UAIT1: 

LD 

C.OFFH 

B922 

06FF 

UAIT2: 

LD 

B.OFFH 

B924 

10FE 

UAIT3: 

DJNZ 

UAIT3 

B926 

0D 


DEC 

C 

B927 

20F9 


JR 

NZ,UAIT2 

B929 

3D 


DEC 

A 

B92A 

20F4 


JR 

NZ,UAIT1 

B92C 

C9 


RET 



display message subroutine 


B92D 

7E 

DSPMSG:LD 

A,(HL) 

B92E 

A7 

AND 

A 

B92F 

C8 

RET 

Z 

B930 

CD0D3E 

CALL 

3E0DH 

B933 

23 

INC 

HL 

B934 

18F7 

JR 

DSPMSG 



; message area 

B936 

0D0A6375 

MSGON: DEFB 

0DH,0AH,'cursor 

B93A 

72736F72 



B93E 

206F6E20 



B942 

21212000 



B946 

0D0A6375 

MSGOFF:DEFB 

0DH,0AH,'cursor 

B94A 

72736F72 



B94E 

206F6666 



B952 

20212120 



B956 

00 




a=&hb900 teal 1 a 


cursor 

cursor 

cursor 

cursor 

cursor 

cursor 

cursor 

cursor 

Break 

Ok 


on M ■ 
off ' ! 
on M I 
off ! ! 
on ! ! ■ 
off ! ! 
on 1 1 ■ 
off !' “C 


display cursor 
wait a moment 

*not display cursor 
uait a moment 

check stop key 
return to basic 


display a character 

! ' ,0 

M ' ,0 
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4 2 9 0 H ! t) — V - 9 . 


T K W X I 

l'isX‘9 


4 2 9 0 H 

tl — V 9 . 

±T1*# 


8^1 CRT X ? M — > _hi7) ti — V ;ufig [c Sfe/ii-TS 'X # ^7 — V;u£-g|7r; 


L i 1 ". 

iS'S’i Nss — BAS I Hlj£fflc0 7°n —<~K — K fr b X> 

r- 9 a* $• -9 *#-g-tc (±, i> it±x> [h] B# 5aa £ g.m.t & tz *>■ io'17- 

I NKEY$5:®fflLit 
I N K E Y $ co^E-frl-1® L X. (i i] V £ iTfc i J; ~C~$~. Z. <7) J; ■? if 

if-S-lc, tf — t, * — J-> £fijfflf £>#a f T* 

# i t. 
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I 1 


100 ' 

110 ' input routine for business program 
120 ' 

150 DEFINT A-Z 
155 CURS0R0N=&H4290 

160 LENGTH=30 

163 STOP ON 

164 ' 

165 *START 

170 PRINT 

171 PRINT ‘input ? ‘{ 

200 G0SUB *SUBINPUT 

201 IF RESULT$=‘end‘ THEN STOP OFF:END 
205 PRINT 

210 PRINT ‘print : ‘{RESULT* 

220 GOTO *START 
230 ' 

250 *SUBINPUT 
290 COLUMN=0 
300 RESULT$= 

310 PRINT STRING*(LENGTH,);STRING$(LENGTH,CHR*(&H1D)); 
320 ' 

330 *L00P 

340 CALL CURS0R0N 
350 IN$=INKEY$ 

360 IF IN$=“ THEN *L00P 
365 ' 

370 IN=ASC(IN*) 

380 IF IN= &H8 THEN G0SUB *SUBDEL:G0T0 *LOOP 

390 IF IN=&H7F THEN GOSUB *SUBDEL:G0T0 *L00P 

395 IF IN=&H15 THEN WHILE 0<COLUMN:GOSUB *SUBDEL:WEND 

400 IF IN= &HD THEN RETURN 

410 IF IN<&H20 THEN *LOOP 

411 ' 

415 IF COLUMN=LENGTH THEN *L00P 
420 C0LUMN=C0LUMN+1 
430 RESULT $=RESULT *+1N* 

440 PRINT IN*; 

450 GOTO *LOOP 
500 ' 

510 *SUBDEL 

520 IF COLUMN=0 THEN RETURN 

530 C0LUMN=C0LUMN-1 

540 RESULT$=LEFT$(RESULT*,COLUMN) 

550 PRINT CHR$(&H1D);;CHR$(&H1D){ 

560 RETURN 


run 

input ? This is a dog._ 

print : This is a dog. 

input ? This is my dog._ 

print : This is my dog. 

input ? My dog is in the box. 
print J My dog is in the box. 

input ? end_ 

0k 
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4 2 9 DH : Hi'bV RAM (DT V 


4 2 9 D H 

+ t72?IiA'bV RAM©7 Kl^XS-^tiOS. 

A, F, H, L 

UyX^Hl:ift72 (1—80) £, i/xxm:^ 

(1-25) >♦(: io-r, CRTX7 U — >Jt 

(H, L) * { SII^(cl±VRAM±c7)i-oT Kuxic^fE 
IT^&xi^I+JILT, WxX^HLlcf&ttLTit'') £1\ 

8 0/4 Off?*- K, 2 5/2 0fr-t— K, 7-/61^- K^I±^T#it 

L tz_b.X"T Kvxfrm#Ri 1-. 

X;X;'L, Wi/X;?HLU^;cl>^II;6<MIEii>Hftt4^if-S-|C|i, “Illegal 
function call” (FC Error) .x. 7 — Li~t. 


1 7)>X 

« Hi 

If K 
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; - display 


a box with character - 





ORG 

0B900H 

B900 

2E05 


LD 

L ,5 

B902 

2605 

LOOPY: 

LD 

H,5 

B904 

E5 

L00PX: 

PUSH 

HL 

B905 

CD9D42 


CALL 

429DH 

B908 

3623 


LD 

(HL),'#' 

B90A 

El 


POP 

HL 

B90B 

24 

9 

INC 

H 

B90C 

7C 


LD 

A,H 

B90D 

FE15 


CP 

20 + 1 

B90F 

20F3 


JR 

NZ,L00PX 

B911 

2C 

9 

INC 

L 

B912 

7D 


LD 

A,L 

B913 

FE15 


CP 

20+1 

B915 

20EB 


JR 

NZ,LOOPY 

B917 

C9 

* 

RET 



{ calculate address ir 
; send a character to 


a=&hb900 teal 1 a 
Ok 


################ 

################ 

################ 

################ 

♦MM*############# 

ft##*############ 

######**######### 
################ 
***###*##««#**#* 
################ 
HttH############# 

It##*##*######### 

ft****#**######## 


i video ram 
video ram 
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4 3 5 0 H : VR 


4 3 5 0 H 

vram i /<-f H5Sfc-«ta"jgttis:^^?T4'-5. 

■kXitt 

ui?x?Bt 7 ) 3 - k$•, uvxfHLmmr k uxr-m^t^v 

R AM±cr)j%fc{£ElzfcMi-& t 7M)t'i-F-i') 7W3> h n — >v 

ifrZ-oru i?x? COT h I) fcTi— h • 3 — K(C J: I) ■£ J: 7ic Li1*. 

.1 -7/u—.^{c J: ,t, N 88- BASIC X'li , -f ,-tf— |- £ 

HtV'iV'fJfXl-VRAMJ-ffltV;!:; • /77j 7 6V -fc 

t-Ht. 

^^X^Clc-§-i.|)T h i; h'j.—F • 3—PC- 8 0 0 1(cf£ffl 
?ilT^'l>tc7)i[n]tCRT3> Io-7, NEC«/a P D 3 3 0 1 
TV'S &<7>Ti\ 


7 Kux 
It fll 

u->x? 
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use semi-graphic - 




0RG 

0B900H 

B900 

21B8F4 

LD 

HL ,0F3C8H+240 

B903 

0E17 

LD 

C, 23 

B905 

0650 

LOOPY: LD 

B, 80 

B907 

C5 

L00PX: PUSH 

BC 

B908 

E5 

PUSH 

HL 

B909 

06F5 

LD 

B,QF5H 

B90B 

0E80 

LD 

C.80H 

B90D 

CD5043 

CALL 

4350H 

B910 

El 

POP 

HL 

B911 

Cl 

POP 

BC 

B912 

23 

INC 

HL 

B913 

10F2 

DJNZ 

LOOPX 

B915 

112800 

LD 

DE,120-80 

B918 

19 

ADD 

HL.DE 

B919 

0D 

DEC 

C 

B91A 

20E9 

JR 

NZ,LOOPY 

B91C 

C9 

RET 



; number of 1ine 
! number of column 


5 semi-graphic code 

; attribute for b/w mode 

;#send a character with attribute 


5 next address in uideo-ram 


; skip attribute area 40 bytes 


; return to basic 


console , t ,0:a=&hb900:ca11 a 
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4 4 5 2 H : V R AM_h(7)*-t*5^?£i!!'<5 



4 4 5 2 H 

A, F, B, C 


l^xX^HLcoW Kwx-C*£5e 1-&. VRAM (m-7i> 
h U h'i — h • 3-F^x7i'Cl: 1 -fit** 

ftfelflLTk ¥') it. 

T M £jl— h • =» — Kli, NEC«CRT3 >Fd-7^pd 3 3 0 1 x>{, 

COT", N-BASIC LTv^ ay^tt^ft. 


t>7Jls 


: - erase not uhite characters - 





ORG 

0B900H 

B900 

2E01 

* 

LD 

L, 1 

B902 

2601 

LOOPY: 

LD 

H, 1 

B904 

E5 

LOOPX: 

PUSH 

HL 

B905 

CD9D42 


CALL 

429DH 

B908 

CD5244 


CALL 

4452H 

B90B 

79 


LD 

A, C 

B90C 

FEE8 


CP 

0E8H 

B90E 

2802 


JR 

Z,UHITE 

B910 

3620 


LD 

(HL)/ ' 

B912 

El 

UHITE: 

POP 

HL 

B913 

24 


INC 

H 

B914 

7C 


LD 

A,H 

B915 

FE51 


CP 

80+1 

B917 

20EB 


JR 

NZ,LOOPX 

B919 

2C 

* 

INC 

L 

B91A 

7D 


LD 

A ,L 

B91B 

FE1A 


CP 

25+1 

B91D 

20E3 


JR 

NZ,LOOPY 

B91F 

C9 

* 

RET 



; initialize 1ine counter 
; initialize column counter 


« calculate address by coordinates 
;#get a character with attribute 
; attribute code in accumulator 
; color mode, attribute for uhite 


; send a space character to v-ram 
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console , » , 1 :c 
golf . 11 

majan *BIN 4 
DEMO . 3 

Ok 

color 4:files 
golf . 11 

majan *BIN 4 
DEMO . 3 

Ok 

color 7:files 
golf . 11 

majan *BIN 4 
DEMO . 3 

Ok 


lor 7:files 2 
backup.n88 2 
DStoSS.n88 2 
cpaint. 1 


backup.n88 2 
DStoSS.n88 2 
cpaint. 1 


backup.n88 2 
DStoSS.n88 2 
cpaint. 1 


palet . 1 
yfiles.n88 1 
quartz. 1 


palet . 1 
yfiles.n88 1 
quartz. 1 


palet . 1 
yfiles.n88 1 
quartz. 1 


BASEBA. 7 

majan . 11 

setinf.n88 1 


BASEBA. 7 

majan . 11 

setinf.n88 1 


BASEBA. 7 
majan . 11 
setinf.n88 1 


xfiles.n88 1 
DEMOUT.Y 6 
format.n88 2 


xfiles.n88 1 
DEMOUT.Y 6 

format.n88 2 


xfiles.n88 1 
DEMOUT.Y 6 
format.n88 2 


consol 

le , , 

,1: 

color 7:files 

2 





gol f 


11 

backup.n88 

2 

palet . 1 

BASEBA. 7 

xfi1es.n88 

1 

majan 

*BIN 

4 

DStoSS.n88 

2 

yfiles.n88 1 

•majan . 11 

DEMOUT.Y 

6 

DEMO 


3 

cpaint. 

1 

quartz. 1 

setinf.n88 1 

format.n88 

2 

Ok 









col or 

4 :f i 

les 

2 







gol f 

11 

backup.n88 

2 

palet . 

1 

BASEBA. 7 

xfi1es.n88 

1 

majan 

#BIN 4 

DStoSS.n88 

2 

yfi1es.n88 

1 

majan . 11 

DEMOUT.Y 

6 

DEMO 

3 

cpaint. 

1 

quartz. 

1 

setinf.n88 1 

format.n88 

2 


Ok 

a=&hb900:cal1 a 
Ok 
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4 4 7 2 H : X? y + 


4 4 7 2 H 

XX i ;-V-h<7)*+'xXX£|gK2>. 

A, F, B, C 

u^x;H«aft777i®l (1 — 8 0 ) iruXXXLx>*.v7 
X XfiUtli (1 ~ 2 5 ) Xi%fe-f& C RTX7 ') —>±<7>®H (H, L ) 
9<n?— pjrJfaAi/-H'iy'i/yxfBi:, 
£fl£®Lt>'67 h ') h'i— h • a — K£ w ->*x X C(c, LT t i' 

0 £1\ 

X;X:'L, “Ill 

eagal function call” (FC Error) 3-y —■/]*%.£_ LJi". 

ifc, PvXXClcf&IrtJf'tST I- '1 h*i— (- • 3— K!±, P C - 8 8 0 1 left 
ffl^fVtV'SCRT 3>ln-7^PD3 3 0 1 X>iX>T"1\ 


7” K U’X 


I m m I 


l'i'7.9 


m ta 


i 

{ - change spaces into 





ORG 

0B900H 

B900 

2E01 


LD 

L • 1 

B902 

2601 

LOOPY: 

LD 

H, 1 

B904 

CD7244 

L00PX: 

CALL 

4472H 

B907 

FE20 


CP 


B909 

2007 


JR 

NZ,NOTSPC 

B90B 

E5 


PUSH 

HL 

B90C 

C09D42 


CALL 

429DH 

B90F 

362E 


LD 

(HL),' 

B911 

El 


POP 

HL 

B912 

24 

NOTSPC:INC 

H 

B913 

7C 


LD 

A,H 

B914 

FE51 


CP 

80 + 1 

B916 

20EC 


JR 

NZ.LOOPX 

B918 

2C 

* 

INC 

L 

B919 

7D 


LD 

A,L 

B91A 

FE1A 


CP 

25+1 

B91C 

20E4 


JR 

NZ,LOOPY 

B91E 

C9 

9 

RET 



ints on screen - 

; initialize 1ine counter 
* initialize column counter 
;#get a character from video ram 

; calculate address by coordinates 
; send a point to video ram 
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a=&hb900leal1.a 
Ok . 
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4 4 7 DH : tJ-VJl'&m&Alfl 



4 4 7 DH 

■4J3«tO r 1 •?. 

A, F, B, C, H, L 


#-y/WiIS (l~8fl) £E F 8 7 H#ltic, *-V;K7)« 
(1~2 5) £ E F 8 6H#i)UU, **1“ h =>-K£ T * ^ A u-^(c, * 
ti?tl-bv b Lta-^tS^lcjroT, CRTX7 1 

•4 K0^ + 7y^?:Sit5$)!i { t-^ t. T^AV- 9<r>^- h*A< 2 OH* 
jjS|<7)3 > h o— ;u • 3 — Kf&ftlf, CRT X7 ') —><r>7 \) 7*?t — V/K7)# 


il)^3 > h d—• a— K t LT£7)t!)f'lFS: ; fT4v'S 1\ 
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; - display steps on screen - 

ORG 0B900H 


B900 

0E03 


LD 

C, 3 

B902 

79 

LOOPY: 

LD 

A,C 

B903 

3287EF 


LD 

(0EF87H),A 

B906 

3286EF 


LD 

(0EF86H),A 

B909 

0630 

* 

LD 

B,30H 

B90B 

C5 

L00PX: 

PUSH 

BC 

B90C 

3EDB 


LD 

A,' cT 

B90E 

CD7D44 


CALL 

447DH 

B911 

Cl 


POP 

BC 

B912 

10F7 


DJNZ 

LOOPX 

B914 

OC 

* 

INC 

C 

B915 

79 


LD 

A ,C 

B916 

FE18 


CP 

23+1 

B918 

20E8 


JR 

NZ,LOOPY 

B91A 

C9 

* 

RET 



set coordinate x 
set coordinate y 


a=&hb900:call a 


□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□a 
□□□□□□□□□□□□□□□□□a□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□a 
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□a 
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□a 
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□a 
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□a 
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□a 
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□a 

□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□a 

□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ 

□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□a 

□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□a 

□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ 

□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□a 


Ok 
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x?-b %'nts.i 


4 B 1 A H : t>7 h • 


4 B 1 AH 

Ns8 BASIC<7)*-y h • X ? - Y %'fits. •? . 


Nss-BASIC <T) rfc -y h•X?-h ZfT %^£t. CRTX? >)-> 
774 Nss-BASIC <7)7"n 7? Al±?W* (NE 

W) Sit-CLiv^ii-. 



^CO 'f — >" 




clear text program 




0RG 

0B900H 

B900 

2129B9 

START: LD 

HL,PROMPT 

B903 

CD20B9 

CALL 

DSPMSG 

B906 

CD8335 

CALL 

3583H 

B909 

CBAF 

RES 

5,A 

B90B 

FE59 

CP 

'Y' 

B90D 

C219B9 

JP 

NZ.N0TCLR 

B910 

2143B9 

LD 

HL,MSGYES 

B913 

CD20B9 

CALL 

DSPMSG 

B916 

C31A4B 

JP 

4B1AH 

B919 

215EB9 

N0TCLR:LD 

HL,MSGN0T 

B91C 

CD20B9 

CALL 

DSPMSG 

B91F 

C9 

RET 



display message subrout 


or not - 

; input a character from keyboard 
; convert into capital letter 

; clear text and jump to basic 

; not clear and return to basic 


inputs : top address of message in register hi 
destroys : register a,f,h,l 


B920 7E 
B921 A7 
B922 C8 
B923 CD0D3E 
B926 23 
B927 18F7 


DSPMSG:LD A.(HL) 
AND A 
RET Z 
CALL 3E0DH 
INC HL 
JR DSPMSG 


display a character' 


message area 


B929 636C6561 PROMPT:DEFB 

B92D 72207465 

B931 78742070 

B935 726F6772 

B939 616D2028 

B93D 7929203F 

B941 2000 

B943 7965730D MSGYES:DEFB 

B947 0A636C65 

B94B 61722074 

B94F 65787420 

B953 70726F67 

B957 72616D20 

B95B 212100 

B95E 6E6F0D0A MSGN0T:DEFB 
B962 6E6F7420 


'clear text program (y) ? ',0 


'yes',0DH,0AH,'c1 ear text program !!',0 


no ,0DH,0AH,'not clear text program !!',0 
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B966 636C6561 
B96A 72207465 
B96E 78742070 
B972 726F6772 
B976 616D2021 
B97A 2100 


1 ist 

100 ' 

110 " text program 
120 ' 

130 PRINT "text program here ! 

Ok 

run 

text program here !! 

Ok 

a=&hb900:cal 1 a 
clear text program (y) ? no 
not clear text program I 1 
Ok 
1 ist 
100 ' 

110 ' text program 
120 ' 

130 PRINT ’text program here ! 

Ok 

run 

text program here ! ! 

Ok 

a=&hb900:cal 1 a 

clear text program (y) ? yes 

clear text program U 

Ok 

1 ist 

Ok s 

run 

0k 


5 F C 8 H \ ^ >y° y Y £*t&' i . 



7 T (E 9 B 9HMA^) (c AtlT— 9 £ XtlX t i* 9 £1\ 94 > • 4 >■/ 
■y H±, *-r'1 y • 'J • % — gtzltz, f- y f . ^-*f#§^.^Bf,dSr-eA 

*l*-7 t ti 9 £1-*>', 1£^<0X h -y7 • J: ^ T A* £ ^®r L £*§-£4c{i * 

-T U ■ 77/ (CY) J ll:-t 7 HttifiJit. 

U HLi/^x^CE9B8Hi^ti>i), itzXtlT-?<r> 

*mzl± 0 0 H 


148 


















\ - convert string into 





ORG 

0B900H 

B900 

112DB9 

START: 

LD 

DE,PROMPT 

B903 

CD24B9 


CALL 

DSPMSG 

B906 

CDC85F 

* 

CALL 

5FC8H 

B909 

D8 


RET 

C 

B90A 

113BB9 

* 

LD 

DE,ANSWER 

B90D 

CD24B9 


CALL 

DSPMSG 

B910 

23 

LOOP: 

INC 

HL 

B911 

7E 


LD 

A, (HL) 

B912 

A7 


AND 

A 

B913 

28EB 


JR 

Z,START 

B915 

FE61 


CP 

' a' 

B917 

3806 


JR 

C,DSPLAY 

B919 

FE7B 


CP 

' z' +1 

B91B 

3002 


JR 

NC,DSPLAY 

B91D 

CBAF 


RES 

5,A 

B91F 

CD0D3E 

DSPLAY 

:CALL 

3E0DH 

B922 

18EC 


JR 

LOOP 


capitals - 


» 1 ine input subroutine 


check and convert into capitals 


; dispalay a character 


display message subroutine 


inputs : top address of message in register de 
destroys : register a,f,d,e 


B924 1A 
B925 A7 
B926 C8 
B927 CD0D3E 
B92A 13 
B92B 18F7 


DSPMSG:LD A,(DE) 
AND A 
RET Z 
CALL 3E0DH 
INC DE 
JR DSPMSG 


display a character 


; message area 

B92D 0D0A6120 PROMPT:DEFB 0DH,0AH,'a string ? ',0 
B931 73747269 
B935 6E67203F 
B939 2000 

B93B 63617069 ANSWER:DEFB 'capitals : ',0 
B93F 74616C73 
B943 203A2000 


a=&hb900:cal 1 a 


a string 

7 

This is a 

dog. 

capitals 


THIS IS A 

DOG. 

a string 

7 

This is my 

dog. 

capita1s 


THIS IS MY 

DOG. 

a string 

7 

My dog is 

in the 

capitals 


MY DOG IS 

IN THE 

a string 

7 



capitals 




a string 

7 



Ok 
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5F92H! ixT h 


5 F 9 2 H 

X? V -> • if-( h £* *r&'-5. 

A, F, B, C, D, E, H, L 

X9')->- • 1 7^ >COT'- 

T, Nss-BASIC co^f >r-y h •'<•>/7 7 (E 9 B 9 HfH6*'4) tc 
telrtL-Ct i'*) £1\ ^*fLA*r'-^l±2 5 4'<4 h if#®?, 2 5 4>'M 
h £®AAA*L£*J^ici±5teM*‘t<7)2 5 4 
+. 

A-7 'J 7 ^ • i) 9-> ■ *— (CTRL-M) ttzlix f- 7 
7° * A - (CTRL-C) WA*t:io«7Ut* { , ipgoi#£-tc |±* 7 ij• 
77/ (CY) fcOK'J-te-y h L,?i^c7)A*lc J:-5-C4 3 SfrL^i#'g-(c(±3f7'J • 
77/(CY) ^lC-tyUTU'^t. 

^c7)-t7';u-f->A‘^c7)ij ^->B#tc(±, i/y'X7HLl:E9B8H (7 >7” 

7f •a*777«7FVX-1) **, 

K (0 3Hifcl±0DH) 



9 £\f] L 


I -t>->7 , ’7l/ 

; - micro word processer - 




0RG 

0B900H 

B900 

21C2B9 

LD 

HL,TITLE 

B903 

1806 

JR 

DSPLAY 

B905 

3E07 

ERROR: LD 

A, 07H 

B907 

DF 

RST 

18H 

B908 

21D9B9 

START0:LD 

HL,PROMPT 

B90B 

CDBBB9 

DSPLAY:CALL 

DSPMSG 

B90E 

CD925F 

START: CALL 

5F92H 

B911 

38FB 

JR 

C,START 

B913 

23 

INC 

HL 

B914 

7E 

LD 

A, (HL) 

B915 

CBAF 

RES 

5,A 

B917 

FE41 

CP 

'A' 

B919 

38EA 

JR 

C,ERROR 

B91B 

FE5B 

CP 

'Z'+l 

B91D 

30E6 

JR 

NC,ERROR 

B91F 

21E2B9 

LD 

HL,TABLE 

B922 

0604 

LD 

B, 4 

B924 

11B9E9 

START1:LD 

DE,0E9B9H 

B927 

1A 

START2:LD 

A,(DE) 

B928 

CBAF 

RES 

5,A 

B92A 

BE 

CP 

(HL) 

B92B 

2007 

JR 

NZ,START3 

B92D 

A7 

AND 

A 


{^screen editor 


; convert into capital letter 


• top address of command table 
; set number of command 
5 input buffer of n88~basic 

5 convert into capital letter 
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B92E 

2828 

JR 

Z,YESCOM 

B930 

23 

INC 

HL 

B931 

13 

INC 

DE 

B932 

18F3 

JR 

START2 

B934 

34 

START3;INC 

(HL) 

B935 

35 

DEC 

(HL) 

B936 

2803 

JR 

Z,START4 

B938 

23 

INC 

HL 

B939 

18F9 

JR 

START3 

B93B 

23 

START4:INC 

HL 

B93C 

23 

INC 

HL 

B93D 

23 

INC 

HL 

B93E 

10E4 

DJNZ 

START1 

B940 

11B9E9 

EDIT: LD 

DE,0E9B9H 

B943 

1A 

LD 

A,(DE) 

B944 

13 

INC 

DE 

B945 

08 

EX 

AF,AF' 

B946 

1A 

LD 

A,(DE) 

B947 

13 

INC 

DE 

B948 

FE3A 

CP 


B94A 

20B9 

JR 

NZ,ERROR 

B94C 

08 

EX 

AF,AF' 

B94D 

CDB1B9 

CALL 

CALADR 

B950 

EB 

EX 

DE.HL 

B951 

01FF00 

LD 

BC.OFFH 

B954 

EDBO 

LDIR 


B956 

18B6 

JR 

START 

B958 

23 

YESCOM:INC 

HL 

B959 

5E 

LD 

E,(HL) 

B95A 

23 

INC 

HL 

B95B 

56 

LD 

D, (HL) 

B95C 

EB 

EX 

DE,HL 

B95D 

E9 

JP 

(HL) 


new command section 


B95E 

2100BA 

NEU: 

LD 

HL,BUFFER 

B961 

AF 


XOR 

A 

B962 

061A 


LD 

B,' z' -'a'+1 

B964 

77 

NECJl: 

LD 

(HL),A 

B965 

24 


INC 

H 

B966 

10FC 


DJNZ 

NEU1 

B968 

189E 


JR 

STARTO 


print command section 


B96A 

3E01 

PRINT: 

LD 

A, 1 

B96C 

324CE6 


LD 

(0E64CH),A 

B96F 

3E61 


LD 

A,' a' 

B971 

CDA2B9 

PRINTI 

: CALL 

PRNLIN 

B974 

47 

* 

LD 

B, A 

B975 

CDC235 


CALL 

35C2H 

B978 

388E 


JR 

C,STARTO 

B97A 

78 


LD 

A,B 

B97B 

3C 

’ 

INC 

A 

B97C 

FE7B 


CP 

'z'+l 

B97E 

20F1 


JR 

NZ,PRINT1 

B980 

AF 


XOR 

A 

B981 

324CE6 


LD 

(0E64CH),A 

B984 

1882 


JR 

STARTO 



; 1 ist 

command section 

B986 

3E61 

LIST: 

LD 

A, 'a' 

B988 

CD9CB9 

LIST1: 

CALL 

LSTLIN 


; input buffer of n88-basic 


; calculate top address of buffer 


get command address 

and jump to each command 


; select printer for output 

; set first line number in acc. 
; print out a 1ine to printer 


; check stop key 

; stop key, return to main routine 


; increment line number in acc. 
; check 1ine number end 


; select crt for output 


; set first 1ine number 
; display a line 
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B98B 

47 

LD 

B, A 

B98C 

CDC235 

CALL 

35C2H ; 

B98F 

DA08B9 

JP 

C,STARTO ; 

B992 

78 

LD 

A, B 

B993 

3C 

INC 

A ; 

B994 

FE7B 

CP 

'z'+l ; 

B996 

20F0 

JR 

NZ,LIST1 

B998 

C308B9 

JP 

STARTO 



; system command section 

B99B 

C9 

SYSTEM:RET 

; 



» 1ist one 1 

line with line number 



; inputs 

: 1ine number from 



; destroys : register h,l 

B99C 

DF 

LSTLIN:RST 

18H ; 

B99D 

F5 

PUSH 

AF 

B99E 

3E3A 

LD 

A,' :' 

B9A0 

DF 

RST 

18H 

B9A1 

FI 

POP 

AF 


check stop key 

stop key, return to main routine 


increment line number in acc. 
check 1ine number end 


return to basic 
subroutine 

a to z in accumulator 

output 1ine number 


B9A2 

F5 

PRNLIN:PUSH 

B9A3 

CDB1B9 

CALL 

B9A6 

CDBBB9 

CALL 

B9A9 

21DFB9 

LD 

B9AC 

CDBBB9 

CALL 

B9AF 

FI 

POP 

B9B0 

C9 

RET 


1ist one 1ine without 1 ine number subroutine 

inputs : line number "From a to z in accumulator 
destroys : register h,l 


; calculate top address of buffer 


calculate top address of buffer subroutine 

inputs ! line number from a to z in accumulator 

outputs : top address of buffer in register hi 
destroys J register a,f,h,l 


B9B1 

CBAF CALADR:RES 

5,A 

B9B3 

D641 

SUB 

'A' 

B9B5 

2100BA 

LD 

HL,BUFFER 

B9B8 

84 

ADD 

A,H 

B9B9 

67 

LD 

H, A 

B9BA 

C9 

RET 




display message subroutine 



inputs 

: top address < 



destroys : register a,f 

B9BB 

7E C 

1SPMSG:LD 

A, (HL) 

B9BC 

A7 

AND 

A 

B9BD 

C8 

RET 

Z 

B9BE 

DF 

RST 

18H 

B9BF 

23 

INC 

HL 

B9C0 

18F9 

JR 

DSPMSG 


output a character 


B9C2 

B9C6 

B9CA 

B9CE 

B9D2 

B9D6 

B9D9 


776F7264 

2070726F 

63657373 

696E6720 

73797374 

656D20 

68657265 


message area 

TITLE: DEFB 'word processing system ' 


PROMPT:DEFB 'here.'.OFFH 
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B9DD 2EFF 

B9DF ODOAOO CRLF: DEFB 0DH,0AH,0 


command table 


B9E2 

B9E6 

4C495354 TABLE: 
00 

DEFB 

'LIST',0 

B9E7 

86B9 

DEFU 

LIST 

B9E9 

B9ED 

5052494E 

5400 

DEFB 

'PRINT',0 

B9EF 

6AB9 

DEFU 

PRINT 

B9F1 

4E455700 

DEFB 

'NEU',0 

B9F5 

5EB9 

DEFU 

NEU 

B9F7 

B9FB 

53595354 

454D00 

DEFB 

'SYSTEM',0 

B9FE 

9BB9 

DEFU 

SYSTEM 


buffer for edit 


BAOO BUFFER:EQU 0BA00H 


<<< MICRO UIORD PROCESSER SPECIFICATIONS >>> 


program area 
data area 


from b900h to b9ffh 
from baOOh to d3ffh 


operation 
1ine number 


screen edit 

from a to z, or from A to Z 


title message 
prompt message 
error message 


micro processing system here, 
here. 

ring the bel1 


<< COMMAND >> 

1 ist 

print 

new 

system 


display text 

output text to printer 

clear text 

exit from word processing system 


<< ATTENTION >> 

this specifications printed with this program. 
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6 F6 BH : CRTX^'j ->(7)^- Ki£££?T4 1 . 


6 F6 BH 

CRT*?!)- ><7)X- KK£**t* 1 . 

A, F, B, C, D, E 

Xti'<7 7 — ?lz£ >), C R Tx ? U — 

-?Xi> T, tA-x ywmzfflt2>atAs£'£Xr>Wcfc$: 1 Si; 

fr& ? if. 

u i7XXBl;f±xx 'J-xcotfrit/x'f 
u-xX^Clclix^U— ><r>7y{ >%t./MW : Z: J i-z.£t. 

E 6 B 2 H#itfe|;(ix 9 n — ( 1 ~ 2 5 ) £■#.£ S't. 

E 6 B 3 H#Mt;lix ? d — ( 1 ~ 2 5 ) t. 

E 6 B 9 H&mzlit 7 — • X- F'rt'SA' (FFH/0 0 H) 

N 88 - BASIC T'l± “Illegal function call” ( F C Error) jr. 

(2 OfifXl Olrf) l£5ti BlHgT-t*'*, X^D- 

ffli^FltLS: < TliV'iti-fr/l. 

• t-h'/ait-KM- 7 T > 

7-> a > • 3 — K {i]7— • 3 — K) r A-x F iBHl; J|. 

is- %'<■?- > zti/zo, ntz^-tz>tk&i >#•) 

1\ £*§£-!; fi E 6 B 4 H#I4^|;ii^^7 F 9 t'a.- F. =,- F*^#^|> 

**• Nss-BAS IC<OCOLORl:J:oT7T>?y3> • =j — F'£SI! LT 
<*f§ 


7FI/X 
« §1 

~m m 


154 











; - change crt screen mode - 




ORG 

0B900H 


B900 

216FB9 

LD 

HL,WIDTH 


B903 

CD66B9 

CALL 

DSPMSG 


B906 

CD43B9 

CALL 

INDEC 


B909 

43 

LD 

B,E 

; set uidth x in register b 

B90A 

CD61B9 

CALL 

DSPCOM 


B90D 

CD43B9 

CALL 

INDEC 

; set uidth y in register c 

B910 

4B 

LD 

C,E 

B911 

2178B9 

LD 

HL,CONSOL 


B914 

CD66B9 

CALL 

DSPMSG 


B917 

CD43B9 

CALL 

INDEC 


B91A 

1C 

INC 

E 


B91B 

7B 

LD 

A,E 

; set scroll start line (1-25) 

B91C 

32B2E6 

LD 

(0E6B2H),A 

B91F 

CD61B9 

CALL 

DSPCOM 


B922 

CD43B9 

CALL 

INDEC 


B925 

3AB2E6 

LD 

A, (0E6B2H) 


B928 

83 

ADD 

A,E 


B929 

3D 

DEC 

A 

; set scroll end line (1-25) 

B92A 

32B3E6 

LD 

(0E6B3H),A 

B92D 

CD61B9 

CALL 

DSPCOM 


B930 

CD61B9 

CALL 

DSPCOM 


B933 

CD43B9 

CALL 

INDEC 


B936 

AF 

XOR 

A 


B937 

1C 

INC 

E 


B938 

ID 

DEC 

E 


B939 

2802 

JR 

Z.BU 


B93B 

3EFF 

LD 

A.OFFH 

; set color mode or b/w mode 

B93D 

32B9E6 

BU: LD 

(0E6B9H),A 

B940 

C36B6F 

JP 

6F6BH 

{^change crt mode and return 



; input a decimal number 

subroutine 


outputs : binary code less than 256 in register e 




; destroys : register a,f»e 


B943 

1E00 

INDEC: LD 

E ,0 i 

! initialize a input number 

B945 

3E30 

LD 

A,'0' i 

; initialize a input character 

B947 

F5 

INDEC1:PUSH 

AF ; 


B948 

7B 

LD 

A,E 


B949 

87 

ADD 

A,A i 


B94A 

87 

ADD 

A,A 


B94B 

83 

ADD 

A ,E 

; 

B94C 

87 

ADD 

A,A 

; e <— e * 10 + input number 

B94D 

5F 

LD 

E, A 


B94E 

FI 

POP 

AF 


B94F 

D630 

SUB 

'O' 

J 

B951 

83 

ADD 

A,E 


B952 

5F 

LD 

E, A 


B953 

CD8335 

CALL 

3583H 

; input a character from keyboard 

B956 

FE3A 

S 

CP 

'9'+l 


B958 

DO 

RET 

NC 


B959 

FE30 

CP 

'0' 


B95B 

D8 

RET 

C 


B95C 

CD0D3E 

CALL 

3E0DH 

; echo-back a character 

B95F 

18E6 

JR 

INDEC1 
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} 

; display a comma subroutine 


; destroys S accumulator 


B961 3E2C DSPCOMjLD A,',' 

B963 C30D3E JP 3E0DH ; display a character 

; display message subroutine 


destroys : accumulator 


B966 

7E 

DSPMSGjLD 

A,(HL) 

B967 

A7 

AND 

A 

B968 

C8 

RET 

Z 

B969 

CD0D3E 

CALL 

3E0DH 

B96C 

23 

INC 

HL 

B96D 

18F7 

JR 

DSPMSG 


display a character 


; message area 

B96F 0D0A7769 UIIDTH: DEFB 0DH,0AH, 'width ',0 
B973 64746820 
B977 00 

B978 0D0A636F CONSOL:DEFB 0DH,0AH,'console ' ,0 
B97C 6E736F6C 
B980 652000 


a=&hb900;ca11 a 

width 20,25 
console 0,25,,0 


0k 

print string$(255,* X 

’ ) 

XXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxx 

0k 
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7 1 D 9 H : 1 . 


7 YUX 7 1 D 9 H 


m m 


Ui>x? 


?</)##&* ; S:*t4' 3. 

A, F, B, C, D, E, H, L 


| M St | 7-7'X')7 (F00DH — F012 H#itk) <F>T~ 9 £, 

F • 9 4 -rtz-t-y h LX t if 0 £ 1". — ^l±B CDn- Ft LTV 

-? • MONTH (FOllHttt) so* 

lifWT-, jS#<7>/nM f-') • 3—K (01H-0CH) 

JiATtw, 


F 0 0 D H ##fe 
F 0 0 EHSJI 
F 0 0 FH#I 
FOlOHStt 
F011 H#i& 
F 0 1 2 H#i& 


SECOND (f IBCD3-K) 
MINUTE (ft : BCDa-F) 
HOUR (!$•: BCD3-K) 
DAY (H : BCD3-F) 

MONTH (fi : '<!+') • 3- K) 
YEAR (^ : BCD 3- F) 
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» - write to timer - 

0R6 0B900H 


5 input date section 


B900 

216EB9 


LD 

HL.PDATE 

B903 

CD65B9 


CALL 

DSPMSG 

B906 

CD925F 


CALL 

5F92H 

B909 

D8 


RET 

C 

B90A 

1112F0 


LD 

DE,0F012H 

B90D 

0603 


LD 

B,3 

B90F 

C5 

LDATE: 

PUSH 

BC 

B910 

23 


INC 

HL 

B911 

46 


LD 

B,(HL) 

B912 

23 


INC 

HL 

B913 

4E 


LD 

C,(HL) 

B914 

FI 

* 

POP 

AF 

B915 

F5 


PUSH 

AF 

B916 

3D 


DEC 

A 

B917 

3D 


DEC 

A 

B918 

2805 


JR 

Z,MONTH 

B91A 

CD46B9 

* 

CALL 

CHRBCD 

B91D 

1803 


JR 

SKIP 

B91F 

CD57B9 

MONTH: 

CALL 

CHRBIN 

B922 

12 

SKIP: 

LD 

(DE),A 

B923 

IB 


DEC 

DE 

B924 

Cl 


POP 

BC 

B925 

10E8 


DJNZ 

LDATE 



> input time section 

B927 

217FB9 

» 

LD 

HL,PTIME 

B92A 

CD65B9 


CALL 

DSPMSG 

B92D 

CD925F 


CALL 

5F92H 

B930 

D8 


RET 

C 

B931 

110FF0 


LD 

DE,0F012H-3 

B934 

0603 


LD 

B, 3 

B936 

C5 

LTIME: 

PUSH 

BC 

B937 

23 


INC 

HL 

B938 

46 


LD 

B,(HL) 

B939 

23 


INC 

HL 

B93A 

4E 


LD 

C,(HL) 

B93B 

CD46B9 


CALL 

CHRBCD 

B93E 

12 

f 

LD 

(DE),A 

B93F 

IB 


DEC 

DE 

B940 

Cl 


POP 

BC 

B941 

10F3 


DJNZ 

LTIME 


» screen editor 
; break code, return to basic 

; end address of date buffer 


$ check minute or other 

; not month, convert into bed code 
» month, convert into binary code 


; screen editor 
* break code, return to basic 

; end address of date buffer 


convert into bed code 


B943 C3D971 


J write to timer section 

; 

JP 71D9H 


J*write to timer 


convert character code into bed code subroutine 

inputs : two characters in register be 
outputs : bed code in accumulator 
destroys : register a,f,b 


B946 

78 

CHRBCD:LD 

A,B 

B947 

D630 

SUB 

'0' 

B949 

47 

LD 

B, A 

B94A 

CB20 

SLA 

B 
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B94C CB20 
B94E CB20 
B950 CB20 
B952 79 
B953 D630 
B955 80 
B956 C9 


SLA B 
SLA B 
SLA B 
LD A,C 
SUB 'O' 
ADD A,B 
RET 


} 

; convert character code into binary code subroutine 


inputs : two characters in register be 
outputs : binary code in accumulator 
destroys : register a,f,b 


B957 

78 C 

:HRBIN:LD 

A,B 

B958 

D630 

SUB 

'0' 

B95A 

47 

LD 

B, A 

B95B 

87 

ADD 

A,A 

B95C 

87 

ADD 

A,A 

B95D 

80 

ADD 

A,B 

B95E 

87 

ADD 

A,A 

B95F 

47 

LD 

B, A 

B960 

79 

LD 

A,C 

B961 

D630 

SUB 

'0' 

B963 

80 

ADD 

A,B 

B964 

C9 

RET 



display message subroutine 


multiply accumulator by ten 


destroys i register a,f,h,l 


B965 7E 
B966 A7 
B967 C8 
B968 CD0D3E 
B96B 23 
B96C 18F7 


DSPMSG:LD A,(HL) 
AND A 
RET Z 
CALL 3E0DH 
INC HL 
JR DSPMSG 


display a character 


; message area 

B96E 64617465 PDATE: DEFB 'date - yymmdd ? ',0 

B972 202D2079 

B976 796D6D64 

B97A 64203F20 

B97E 00 

B97F 74696D65 PTIME: DEFB 'time - hhmmss ? ',0 

B983 202D2068 

B987 686D6D73 

B98B 73203F20 

B98F 00 


print date$:print time$ 

82/09/01 

19:05:06 

Ok 

a=&hb900:cal 1 a 
date - yymmdd ? 011223 
time - hhmmss ? 122334 
0k 

print date$:print time$ 

01/12/23 

12:23:39 

0k 
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7 2 C D H : I /O^rNss-BASICffltZl^tS 


7 K U-* 

m m 

m m 


7 2 C DH 

I /0£Ns8-BASICfflUt£;i:t5. 
A, F, B, C, D, E, H, L 

PC —88 0 1 & I / O.lf- 1- £, 


< Xlx it 1 ) £ t. 


Nss-BASIC RttZ't 


■>Ty 


v- > X)V 


— initialize i/o for n88-basic - 




0RG 

0B900H 

B900 

2124B9 

LD 

HL,PROMPT 

B903 

CD1BB9 

CALL 

DSPMSG 

B906 

CD8335 

CALL 

3583H 

B909 

CD0D3E 

CALL 

3E0DH 

B90C 

CBAF 

RES 

5,A 

B90E 

FE59 

CP 

' Y' 

B910 

CO 

RET 

NZ 

B911 

CDCD72 

CALL 

72CDH 

B914 

2148B9 

LD 

HL,MESAGE 

B917 

CD1BB9 

CALL 

DSPMSG 

B91A 

C9 

RET 



display message subrout 


; input a character from keyboard 
; echo-back a character 
; convert into capital letter 

> return to basic 
;*initialize i/o for n88-basic 


; return to basic 


inputs : top address of message in register hi 
destroys : register a,f,h,l 


B91B 7E 
B91C A7 
B91D C8 
B91E CD0D3E 
B921 23 
B922 18F7 


DSPMSG:LD A,(HL) 
AND A 
RET Z 
CALL 3E0DH 
INC HL 
JR DSPMSG 


display a character 


message area 

initialize i/o 


B924 696E6974 PROMPT:DEFB 
B928 69616C69 
B92C 7A652069 
B930 2F6F 

B932 20666F72 DEFB 

B936 206E3838 

B93A 2D626173 

B93E 69632028 

B942 7929203F 

B946 2000 

B948 696E6974 MESAGEjDEFB 
B94C 69616C69 
B950 7A656420 
B954 212100 


for n88~basic (y) ? ',0 


initialized !! ' ,0 


a=&hb900 Seal 1 a 

initialize i/o for n88~basic <y) ? y 
initialized !! 
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780FH:*'yh-X?-h £*t4' 9(2) 



9 —Y*fib 

X h, /7 7 


7 8 0 FH 

N88-BAS I CO)* 

Nss-B A S I CX>* 
oT i B A S I Ccor 
1)7x7 )UT) -i =. X 7 
4 •■/ 


\y F • Xy — F 

•y F • X 9 - F • T K 
*x 

7 4 x'£fi-&- 7 7ca^C 

t. 


7 ( 2 ). 

U 7 ft. t y F • X 
') $$kcDl&%fi£1kl 
RTx7')->lif^ 




- hot start or return 






ORG 

0B900H 



B900 

212EB9 

START 

: LD 

HL,PROMPT 



B903 

CD25B9 



CALL 

DSPMSG 



B906 

CD8335 

LOOP: 

CALL 

3583H 

; input a character 

from keyboard 

B909 

CBAF 



RES 

5,A 

; convert into capi - 

tal letter 

B90B 

FE48 



CP 

'H' 



B90D 

2806 



JR 

Z.HOT 



B90F 

FE52 



CP 

'R' 



B911 

280B 



JR 

Z,RETURN 



B913 

18F1 



JR 

LOOP 



B915 

214BB9 

HOT: 

LD 

HL,MSGHOT 

• 


B918 

CD25B9 



CALL 

DSPMSG 

; jump to hot start 


B91B 

C30F78 



JP 

780FH 

5 


B91E 

2158B9 

RETURN:LD 

HL,MSGRET 

• 


B921 

CD25B9 



CALL 

DSPMSG 

J return to basic 


B924 

C9 



RET 


; 





display message subroutine 







inputs 

: top address of 

message in register 

hi 





destroys : register a,f,h, 

1 


B925 

7E 

[ 

DSPMSG:LD 

A,(HL) 



B926 

A7 



AND 

A 



B927 

C8 



RET 

Z 



B928 

CD0D3E 



CALL 

3E0DH 

; display a character 

B92B 

23 



INC 

HL 



B92C 

18F7 



JR 

DSPMSG 






message area 




B92E 686F7420 PROMPT:DEFB 'hot start or return (h/r) ? ',0 

B932 73746172 

B936 74206F72 

B93A 20726574 

B93E 75726E20 

B942 28682F72 

B946 29203F20 

B94A 00 

B94B 686F7420 MSGHOT:DEFB 'hot start M'.O 
B94F 73746172 
B953 74202121 
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B957 00 

B958 72657475 MSGRETtDEFB 'return to basic "',0 

B95C 726E2074 

B960 6F206261 

B964 73696320 

B968 212100 


1 ist 

100 ' 

110 ' text program 
120 ' 

130 PRINT ‘text program here !!* 

Ok 

run 

text program here !! 

0k 

a=&hb900:cal 1 a 

hot start or return (h/r) ? return to basic 11 
Ok 
1 ist 
100 ' 

110 ' text program 
120 ' 

130 PRINT ‘text program here !!‘ 

Ok 

run 

text program here !! 

Ok 

a=&hb900:ca11 a 

hot start or return (h/r) ? hot start 11 
Ok 
1 ist 
100 ' 

110 ' text program 

120 ' 

130 PRINT ‘text program here ! 1 

0k ' 

run 

text program here ! 1 
Ok 
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7 E D 0 H : CMT4rA*ffltC-T " 


7 V\s 7 


m m 




7 E D 0 H 
CMT-f >-77x-74A7)li:^: 
A, F, H, L 


W] 1 2 0 0 *- £ l± F O 0 9 H F B H 


£, 6 0 0-i<-^^IJfflti>i§^U!±FAH?r4^'C=>-;wtl> fc, US ART 8 
2 5 nCMT«AAffli:-fe7 H, 7 • ') 1/-J-0 NtMOTOR 1 ) 

M+'j r fli-9-s #rtb l x t f') i -r. 


7 F 1 5 H : CMT*'b<7>A:ft£^ n-XTS. 

7 F 1 5 H 

CMT-fy7 71 — 7i)'b<T) A*£7 O — Xf 3> . 

A, F 

CMT -f > 7 7 i — 7h'io<n A7]£ 7 n —x'L, l*l®J -t— 7 • U w- 
-iOFF (MOTOR 0) £lXi> i?') it. 


7 FUX 


I« m 


Ui>X7 


m m 


7 F 1 A H : CM P —Xf 5. 


7FUA 


« h6 


Ui>7.9 


7 F 1 AH 

CMT-f >7 7i-*^<7>tii*£7 P-XT5. 
A, F 


ft? jft | CMT'f > 7 7x —x^cotbAl £ 7o — XLt Ui% < <7)MB$[81f$ 
MB*-? • 'J B-iOFF (MOTOR 0 ) CITii' 1 ) it. 
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7 F 3 5 H . \s —0) □ V |* □ — fa %£ j 


7 F 3 5 H 

f*l/§t i j i —cos 'y y a -;u£fr4' -5. 

A, F 

T * A u — 9 <F)T— 9 fi< 0 cot§&i,z (i |*|1 e U 1^-J0FF|: (M 
OTOR 0), 73-jz.Z.u — 9<r>Y— ffr'OttftcotijfrlzliftM 1 ) W — £ON 
ic (MOTOR 1 ) Lit. 

PC- 8 8 0 1 Tii, tititJ rK— h 3 0 H SitfeO £ 3 f -y h f- o-;u 

rt/t'J u-<7)3> 1 - n-/u£*ffr -5 ***-?£ ita f fife<7)t-.y h 

m*iK-h 3 0 H #jfc(c a * L £ 

T*-?(±, Nss -B A S I CT1±E 6 C 0 H ft&fcfR}? ? ilX t. 





; - control motor relay - 


ORG 0B900H 


B900 

213EB9 

START: LD 

HL,PROMPT 

B903 

CD2AB9 

CALL 

DSPMSG 

B906 

CD8335 

CALL 

3583H 

B909 

FE03 

CP 

03H 

B90B 

C8 

RET 

Z 

B90C 

FE30 

CP 

'0' 

B90E 

200B 

JR 

NZ,NOTOFF 

B910 

2159B9 

LO 

HL.MSGO 

B913 

CD2AB9 

CALL 

DSPMSG 

B916 

CD33B9 

CALL 

MOTORO 

B919 

18E5 

JR 

START 

B91B 

FE31 

NOTOFF:CP 

'1' 

B91D 

20E1 

JR 

NZ,START 

B91F 

216CB9 

LD 

HL,MSG1 

B922 

CD2AB9 

CALL 

DSPMSG 

B925 

CD38B9 

CALL 

M0T0R1 

B928 

18D6 

JR 

START 



i display message subroutine 

B92A 

7E 

DSPMSG:LD 

A, (HL) 

B92B 

A7 

AND 

A 

B92C 

C8 

RET 

Z 

B92D 

CD0D3E 

CALL 

3E0DH 

B930 

23 

INC 

HL 

B931 

18F7 

JR 

DSPMSG 


input a character from keyboard 
check break code, 
return to basic 


motor relay off 


motor relay on 


display a character 


motor relay off subroutine 


B933 AF 
B934 CD357F 
B937 C9 


MOTORO:X0R A 

CALL 7F35H 
RET 


{^control motor rfelay 
























motor relay on subroutine 


B938 3E01 
B93A CD357F 
B93D C9 


M0T0R1:LD A,1 

CALL 7F35H 
RET 


;#control motor relay 


; message area 

B93E 0D0A6869 PROMPTjDEFB ODH.OAH,'hit key, motor 0 or 1 ? ',0 

B942 74206B65 

B946 792C206D 

B94A 6F746F72 

B94E 2030206F 

B952 72203120 

B956 3F2000 

B959 6D6F746F MSGO: DEFB 'motor relay off !! ,0 

B95D 72207265 

B961 6C617920 

B965 6F666620 

B969 212100 

B96C 6D6F746F MSG1: DEFB 'motor relay on !! ,0 

B970 72207265 

B974 6C617920 

B978 6F6E2021 

B97C 2100 


a=&hb900: 

teal 1 s 

i 


hit 

key, 

motor 

0 

or 

hit 

key, 

motor 

0 

or 

hit 

key, 

motor 

0 

or 

hit 

key, 

motor 

0 

or 

hit 

key, 

motor 

0 

or 

hit 

key, 

motor 

0 

or 

hit 

key, 

motor 

0 

or 

hit 

key, 

motor 

0 

or 

hit 

key, 

motor 

0 

or 

hit 

0k 

key, 

motor 

0 

or 


1 ? 
1 ? 


1 

7 

motor 

rel ay 

off 

1 

7 

motor 

rel ay 

on 

1 

7 

motor 

rel ay 

on 

1 

7 

motor 

rel ay 

off 

1 

? 




1 

7 

motor 

rel ay 

off 

1 

7 

motor 

rel ay 

on 

1 

7 





165 




7F4DH : 


7FUX 7 F 4 DH 


* m 




CMT 4 >■? 7 ji-X&mtlRnz-i -i 
A, F, B 


^ 8ft I fciiii®: 1 2 0 0 *■—£ fljffll‘ 6 !§-£•{:: (i F 0 0 9 H IMtfeic F B H 
£. 6 0 0 *'-£ fljffl-f£ if-£•(;: (±F AH £, U 

SART825l£ CM T X) 7 H, ? • U U — £• 0 F F(M 

OTOR 0) ft, 


7 F 8 7 H : CMT*'b(7) 1 '<>f h A*£*t&' 9. 



7 F 8 7 H : 

CMT 'f>^7x-X*'b(7) I '<4 b Xtlb'nKi. 
A, F 


ft? itt 1 CMT T > 9 Vx — x*>b 1 ;<4 b c7)r"— ? £ A* L, TJriil^ 
— £> t' 1 ) £-f. X f- 7 7 • A-— <nAt)t s ibtU£ CMT T >77i- 

x^'b ^Or"—^ + £ 1\ 


7 F D 0 H .CMT ^<7) 1 If fcti ^ ?t & 9 . 

I 7 K ux | 7 F D 0 H 

I ^ aE | CMT-f >77 i-Xm» 1 /<-f h **£^4- ?. 

1 l--> X? | A, F 


* m 


CMT -f > ^7 


xh-y-r- 

— ^diTlSr'WL £ 1\ 


CMT-0771-XA.Wf 
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I/O PORT MAPPING 














PC —8 8 0 h 

#iff-Hif'£l>IS f ) iff-h • T Kvx|;J:otV-f-( > 7 'U 5 MIL S L 
fc. 


*° — 

h 

#I/0+°-|-X>+?-h •TKux^Ut. 

1 / 

0 

#1/0.+°— I NPUT (A tl) tf- hf&^OUTPUT 



(tli7j)+°— F T&& *‘X>ESIJ £ * L £ "T. 

« 

b& 

# I /0 iff— F g ft £ L i to 

j* 

St 

#I/0iff-h<7)^L^^fflm #f'y 


*§£-!;: J: o T l± Mii L i ^ L i t. 


i-±J, I/Oiff-h • 7 RPXliPC—8 0 0 1 CO^-S-1 [3] t < tf!7 t'.y hX> 
xXfA • 3- KfPC— 8 8 0 1 1/04 >i'7x-XM^W'SA' 

SrESIJU IfS 6 t+y (--$4 t'-y l-^'M X • -+>'<fc «fc I/O 

4 >?7 i -xc7)iiiM£jiiJRL£'r. T<£4 C-y hcO/T-/ • 3- KlijfflRLfc 
4 - > ? 7 x - x U ffl L -C SH^colil # £ ttSE-f & t Xi -e-f. 


rtf— h • r K u x 
hf& “Fte: 

1/0 4 V 9 7 x. — X 

0 0 0 0 

^f —iff— K 

0 0 0 1 

7 'J >7 

0 0 10 

USART 8251 

0 0 11 

yXT-U • 3 7 h V — Jl 

0 10 0 

yXrA • 3 > F o jis 

0 10 1 

C R T 3 >F 0 — 9 

0 110 

DMA 3 > (- o — 7 

0 111 

7 ^ ij . ,<> 7 

10 0 0 

telS'^X • Xo 7 h 

10 0 1 

fe 3 Sy'°X • xo . y F 

10 10 

KiH^x • xo - y h 

10 11 

tfe^-'X • XO 7 F 

110 0 

,t£ 3 fi'-«X • Xo .y h 

110 1 

ti 5 Sy<x • x o y f 

1110 


1111 

7 O 7 h° • T* 4 X 7 
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0 0 H : *- • -7 Y || tit 5. 

o o H~0 BH 
INPUT 

57,<r>=r-9 £A* ti. 

pc- 8 8 o i <7>*-x— ki±, 3-r^m^btLm^-r, 

—J&fi-J&w h • if— • xJftW: i-otff Sttfc 

'r'ii'. N88-BASI > ?7 7" h T'frfr o TV'S 

'<v 7 7 <7)ffi-|6H (3 123=) trftfrArtfcfT* 

*- tK- K--V* h I) 7 7 ,< 7 )mm±, r PC- 8 8 0 1 USER’S MANUALj 



■y- > 7 ";i' 


ioo ; 

110 ' check key scanning port 
120 ' 

130 DIM PORT<&HB) 

140 ON STOP GOSUB *BREAK:ST0P ON 

150 WIDTH 40,25:CONSOLE 0,25:PRINT CHR$(12); 

160 PRINT ’port 00 01 02 03 04 05 06 07 08 09 0a Ob’; 

170 PRINT ’- 

180 #L00P 

190 FLAG=0 

200 FOR I=&H0 TO &HB 

210 PORT(I) = INP(I ) 

220 IF PORT(I X >&HFF THEN BEEP 1:FLAG=-1:BEEP 0 
230 NEXT 

240 IF NOT FLAG THEN *L00P 
250 ' 

260 PRINT TAB(5); 

270 FOR I=&H0 TO &HB 

280 PRINT RIGHT$(’O’+HEX$(PORT(I)),2);* 

290 NEXT 
300 GOTO #LOOP 
310 ' 

320 *BREAK 
330 STOP OFF 
340 RETURN 


run 


port 00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

Oa 

Ob 

FF 

FF 

FD 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FB 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FE 

FF 

FF 




Break in 200 \ 

Ok 
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(r'— 9 • '<x) 

DO D1 D2 D3 D4 D5 D6 D7 
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00 

01 

02 ’ 

03- 

04* 

05* 

06- 

07- 

08- 

09- 
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DO D1 D2 D3 D4 D5 D6 D7 



^ - % 


5§§SSSe 


C X 3 








































































































































































































































































1 0 H 

OUTPUT 

y; btatitz. 

7° U > 9^T~ 9 £ mirt & tz6b<r) : S Kf M. • +P7';u— f-> (±N- 
BASIC, Ns8-B A S I 

Nss-BAS I CT'li, V;?-'-FUJI'S 3 ED 

4 H#itk<7)^ XT A • -*F7Du— X'£ £ 1"L, Ui’-K^-A 
0 0 1 8 -f > i E 6 4 C H#itfc<7)7 7 

•tv [■ 1"-i)#-T"7" U > lht)L £1\ 

L^L, iFfgAtfc*-+°- F£=J> l'0-;HT7 , i) ?£ 

tT^7^46lc(i, A*.+°- F 4 0 H#WlX>8lO h'v H:BU S Ylf A^J LT 
ii >), th*tf-h 4 0 H#i«^0t'7 K’PSTB (7*'J > :? • X fo-7') 
Fi-t£ =>> F n-;ui-&**'"?:-£ J-f. r'-^<7)th*i±t^AA, :moHf 
itiiWtf}#?K— F £ fijffl LTfr1~. 

Tfi4 h*'x Ki^T-7C03> h o—-?-x>*lr£-!cl± 

T{£3 t'-> F % 3 tr-y F**^ 'J T;u • f"-?<7)iB;Fjffllc& 

»)±1\ ? 4 -7£ 3 > F o — (4, 15 F 4 0 H #ltfe<7)SS 

2 h' v F ( CL K) 53 it/% 1 t'-y F (C S T B ) afllMW'.&ST"t. 


+° — F 


I / 0 


m m 


m si 


173 













■yr'y-ffr 


1.00 ' 

110 ' print out characters 
120 ' 

130 A=&H1B:G0SUB aPRNCHR:A=ASC( * B ‘ ):GOSUB aPRNCHR 
140 FOR 1=1 TO 17 

150 A=ASC(MID$( * 0123456789abcdef ’,1,1))s GOSUB aPRNCHR 
160 NEXT I 
170 GOSUB #PRNCRLF 
180 ' 

190 FOR Y=0 TO &HF 

200 A=ASC(MID$(‘ 0123456789abcdef’,Y+l,1 ))jGOSUB aPRNCHR 

210 FOR X=0 TO &HF 

220 A=Xa&H10+Y:IF A<&H20 THEN A=&H20 

230 GOSUB aPRNCHR 

240 NEXT X 

250 GOSUB *PRNCRLF 

260 NEXT Y 

270 A=&H1B:G0SUB *PRNCHR:A=ASC(* A*):GOSUB aPRNCHR 
280 END 
290 ' 

300 aPRNCRLF 

310 A=&HD:GOSUB aPRNCHR 
320 A=&HA 
330 ' 

340 aPRNCHR 

350 IF (INP( &H40) AND &HDOO THEN aPRNCHR 
360 OUT &H10.A 
370 A=PEEK(&HE6C1) 

380 A=A AND &HFE:0UT &H40.A 
390 A=A OR &H1:OUT &H40.A 
400 RETURN 


run 

0123456789abcdef 
0 0@P'p_-*- -?£=* 

1 ! lAQaq.-ro7^A m 

2 *2BRb r-H r Y»7X4=* 

3 #3CScs-h,9ff=m 

4 $4DTdt«~.lM*-C 

5 /£5EUeu«— TTlk.it 

6 &6FVfvBI?flI3’*fr 

7 " 7GUguiB 

8 (8HXhxl 

9 )9IYiyl -yiTJW 
a *:JZjzl L xlAU4 
b +;KCkCI J »ttt:D* 
c ,<L¥1 !■ n-2,79# 
d -=MDm>iM7 / \>0 
e . >N''n~B v *3tT“/ / 
f /?0_o + J W\ 
Ok 
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2 0 H : 8 2 5 1 


— h 


_1 2 0 H 

T~7 O I INPUT 

1 W] 8 2 5 l*'bf-2^A*t5. 


js_ m 

T’-f. 


8251 (USTRT) £> <7)t-? £■&©■1& fcifttfO A* T°- h 


PL < (± 8 2 5 1 (USART) sot'-? • x- £f£v\ 


2 0 H : 8 2 5 1 £ttS*-f 5. 


— 

h 

1 / 

0 

4i& 

WZ 

m 


m 

m 


PL < 118 


2 0 H 
OUTPUT 

8 2 5 1 -.7-'-?&a3*-f £. 

8251 (USART) '^T-9 SriaHTtl, tzib<n&t) tf- h Tt. 

2 5 1 (USART) • x— 
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2 1 H : 8 2 5 1 frbXy--? XbAtlTZ 


2 1 H 
INPUT 

8 2 5 1 frbXT-f £. 

XT-^XCO'J - Kl±, A*tf-F 2 1 i 

i-'i1". 

1¥L < l± 8 2 5 1 (USART) <Dt'-9 • v-KctS') il"**, ^CDtzsb 
8 2 5 1 (USART) nxf-i'X^/K Ut. 

® 7 t*7 F (Tx RDY) .^ <7) t" 7 F* f l(--t 7 F 

(-(± 8 2 5 1 (USART) XJjjsfH''' 7 7 7 ±>'3E(— 

'AcoMlsr'— F'^AyTrC-fe 7 F-t&^ nTtglc 

4-') it. 

S? 6 t' 7 F ( R x RDY) . 8251 (USART) A'-grlt L A i- U 

T/P • • T'-^lc^j&Li&x, CPU(C(@H± 

■i>±)cis(-#>•& £#*7 F 

I5h'7f ( T x E ) . 8251 (USART) l±iifS^'-y 7 T «f 

— ?£, ''‘7i^A • x U 7;i^'i£@S&[c ± ot x UT;u- • r — 

?(-^&lA±T”^!c)iO iBLTv'J t. )£ff/<7 7 t < 0 t* 

— 9 £^ifelI]K(--fe 7 F L Ardf ,4T' v< -x 7 7 Wglz 4 ' *) T x R 

D Y * f -fe 7 F ^ <7)Bt,if ti± f"- ? ^r-r* 4 H3Uc M 

>) tB£±lA:;bi±T'i±,*> i) i-y-A. 

^-CWT"-^*''ng|5lc)i') *S±lT(± t J6TTx Ert''-t 7 F 
£T<7)T'-X)iFf^7 L£*£SiIg-e#i t. 

i4t'7 F (PE) .^‘ I )f< • X7-<7)FttiiT"-b 7 F $±141". 

13 h' 7 F (OE) . >k<7)T'— ^''zgHf? ±LT>''& (c bf, 

C P U7F { m(<7)T'— ? £ ')— F" L4-'''±I-S-(--fe 7 F £±li1\ 

^ 2 U 7 F ( F E ) . #£jjx F 7 7- • tr 7 F *>1$* £ ±1 ft ^±§£-fc-t 

7 F £ ti i i~. 

Ilf-F (SYNDET) .|Bl»jii«T-XiAf$fflLi-t. 

l0t'7F (DSR) . ^r'^comtlHW-^T, T- ^ilFf »IntbVi 

mx-b&fr&frZTjilit. 


— F 


I / O 


« fii 


m m 
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21H:8251^3>I' 7- 2> 


2 1 H 

OUTPUT 

8 2 5 1 V F n—JU • 7 — K&fc titltZ. 

8251 (USART) tzli-t- F'lxieiiJh*K5e co 2 « 
*- KSbeli^'-h'i fcli KCioT U-fe •>• F Six*:# 
1 SItfttfffr Wfl 2 1 Lfc t colter K 

i LT'SltKbflS I - . 

id-*>T, a-f-«-/D/7Ati'U251 (USART) 

-g-icli 8 2 5 1 *< ') -fe y Ht&SriT)**, tTC^E- 

£*Q&*rt { -C# •?• wT” 8 2 5 1 (U S A R T ) £ U -fe-y FI tz V'*§£-IC 

it lfer 5— COT— ? £&-or7c£lz 3-v> «#Jlc ITW U -fe y F • 

=>-?> KtJJMBLii-. 

8251 (USART) flmiZ-MI’&tyWltf'-? • x- F^KiS*) 4t* f , 
^e— KSt^, Ki9:S{whltt#fcr-y FLi 1". 

T:— KIKSeIw Jilt & &t" -y Fx>j§:ift£*L it. 

i 7 t’ 7 F ( S 2 ) iiit/^6 h*-y F (Si ) .X F -y 7“ • f v F <r> 

£*t5c-f & fcAlcttfflLi-f-. OOWilxhv-Z'fv 

F$S», 0 \<F>t$ lt*7 F5\ 1 0<7)i # 1.5 t'v F #, 11 
flinty) S-<7) X ( y 7" • t" y ( *'*©£§ fti t. 

i5fy) (EP) . '*>) T4 • £-y F fcfflt *«*«=, fSISc (EV 

EN) (ODD) 

|4fy F (PEN) .lWi^-'lfF •^-7’^, 0 cot £7 

4 Xi-7'^ii i) il". 

i3t‘y F (L 2 ) tiit/Hi 2fy F (Li ) . f'-* 

OOWilSt'y FI, 0 lOil 

6 f 7 Fg, lOWiMt'yFS, llOtHt'yFgf 

Nss-BAS I C&JrtfN-BAS I CTI± J 
I S8ffi?:ffflLTV'JtA'^8f7 HMlTt. 

S 1 t y F (B 2 ) tii VlOfyF (Bi ) . PJ#*-(C 0 <7)if^(± 

F'£, £l±#P?I»3ii{i*- K^ltSe 
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Lit**, (tK- 

p-F) 01«iM, 10«J:M6, 1 

lC0L£64L&')i tf, fciiiSJg (± 8 2 5 1 (USART) 
izAtltHlX^Z, 9 v-y 9 <?)%&%. t'<k<nlz 1 tcffl ') £ 

t. 


£i§ilJ£ (iK-P-F) 


'gauge 

1 £tzli 16l^li6 4 


tztt l±", ?D 7 7i f 4.8KHz t'-y KBz) 

zb 5 ' 1 , I0t'7 F ( B i) A< 0 T*i»<t(f, 

4 8 0 0 

(jK- l— F ) =-= 3 0 0 

1 6 

T'fciiiiJt 3 0 0 /K— tic 0£ t. 


> K^lc ±j(±2>#t'y F co;#.sk$r^L i t. 

* 7 t* y F (EH) .iHjWiiff h f -y FT", HUNT 

X -K T"1 tc-b-y F L^J*r-g-W± S YNC J r j r7)')' Sr 
(± tib£ -f. 

$6 h'y F ( I R) .77 F • V-te-y F SrlTir ^i 1*. 

I5f7 F (RTS) .-fe> F n- 

rt'tSfctfXTltr-y FT', llc-b-y F t h t 0 (C 0 £ t. 

I 4 h' 7 F (E R ) .Xr— ? Xc7)iy — • 7 7 T:£T£ U -fe-y FT" 

tzt)<r>\f: 'y F T% PE, OEfciO'FE^') 4ry F U t. 

S3fvF (SBRK) .flMHiOK.UTiJgif**, T x DX>F§Ff 

T-9Z 0 1 (e-try F Li 1". 

SS 2 t" ’y F (RxE) .1< 7 >L#'( 

*—7 , ;w, 0«tlf4±i-7'/4-ii l )it. 

Ilh'-yF (DTR) . DT R 

$)?£=>> F n-^Ut, 

I 0 t' 7 F (TxEN) .MfiT *-7VKT>i&5e£fi : $:<''it. TX 

EN«t*7 F Sr 1 (e -fe -y F L X ±>it If, CDS SST- *> { 0 ic ir l> 

mx-mm^ife (4*--rno iz^-o, cDS4W f oi:io-c 

V'tUf, TXENJ4 *-7VMetl>#T'3lff‘Billie &') it. 
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3 0 H ! -f -i "s 7° • A < *y -f- CD A 7 — 9 A & A>D "f 5> 



3 0 H 
INPUT 

7 -'-i 7 7'- X'f 7T0>Xf--?X£A*T3 . 


1 m 


AiJrtf- h 3 0 H #Hkl±, ±fv; 2 tT -y F CO A* rtf- I- t LX, 


Tfi 6 t' ••/ h A 1 ' P C — 8 8 0 1 COT 4 • •/ 7 “ • X'f vf (SW 1 ) co X r — ? 


xxtimtixm^btit t. 

P C - 8 8 0 1 (Cli 4 e ■/ h cr>im A 1j rtf- h t 1 U -y h Xrimthf] rtf- 1 * f 
ffli;£tl't^itt', TcOvJlfflAiJrtf- l<0>pc0 2 h* v hrt { 3 0 H#itco|f$ 7 h' 


•V h t W, 6 fcf -y h ic, $ I) <r> 2 h' y Hi 3 1 H #i&co$ 7 t'v h i $ 6 h' •? Hz 


Si?fL-0'i T. ^&AlCtflfflii)iJrtf-H±4 0 HMCftSJatf 1 ), ~ 


Tt 6 f 7 M'bli, SW 1 coxt -9 x£Aijt 5 $«*•£'£it* f , JilTU 
ftt* 7 h if'4 yT • X4 7 f co|MH££fj Li I - . 

I5h*7 h.SW1 -6. XCOX'i -yfliNss-BAS I 

Sii-O'i 

84^7 h.SW1 -5. CCOX4'yfliNss-BAS I CTlifgffl 

ZtlX^mrX. 

8 3 t’ 7 h.SW1-4. ON(0)Wi| 2 5 ff-t— K, 0FF(1) 

CO i £ 2 5 ft X - K t t£ •) i t. 


g$ 2 b" -y h.S W 1-5. ON(0)«il*0 tfr-t— K, 0 F F ( 1) 

coi £ 4 offif- Ki&- >) it. 

81 C7 h.SW1-4. ON( 0 )<Ot$ 9-i X>V ■ *-K, OF 

F( 1 )«0 t £ B A S I C K i %') i t. 

80 t*7 h.SW1-5. ON(0)coi#N-BAS I CT:-K, 0 

FF( 1 )X>i £ N 88 -B A S ICt- Fi3r') i T. 

Ztl h CO b* -y Hi £T, f* 4 >y 7" • Xfyf * { 0 N (_h|nj £0 <7) t £ b* 7 1 
0 , Xf/ f * { 0 F F (Tin) £ ) CO £ £ tr -y (- 1 1C ') i t. 
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3 0 H : 


3 0 H 

OUTPUT 

#^<7)3 > h O-Jl-ig-Qk&tlT 2>. 

3 0 Ity >J T)V • 4 > ?7x-x4> J: 

tN'CRTX>=>> h I". WTtc-g-t-y b x> rtJ* £ * L £ t. 

I7t'7 h.-fegfflL-O'i-tf/l. 

|6t'7 h. 

i 5 f 7 I- (C B 2 ) .7 o /7-?T;i/ • ^ i —-T—x g > • 4 > 

? 7i 4X8 2 5 1 £S I 

x^ze^lT&^i t. 1 <7)B#ic(± S I 0 £ £r 0 4 "f\ 

l4t'7F (CB 1) . US ART 8 2 5 1 £CMTlcfSiffl-t&iI'£- 

XiSUSif® (tf-P-h) ^’x.tbtzUhW-v b T1 X>H#lc 

iUii (s i o< 7 )i#-g-i±is]»i) ttc'Ht. 

1387 h (MOTOR) .:«frfcrt*S*L'0'*CMTJB«>*-* 

• ij u —£=j> h n — )Vt htzsbm -v b T1 TON, OTO 
F F b tt ') 4 1-. 

i3h*7) (C I N H) .CMT T> ^7x-Xi±, -x-? 2 4 0 0 

Hz, X-~<-X 1 2 0 0 Hz «FS KtfsSUSro-C^il-**, - 
<T> t'-y b £01Z ij-fe-y b IX te^tzm&zli CMT til tz 

lt-t7 h L Tfcltlf'fttw 1 

2 0 0 Hz il4 1”. 

ilt'7l (COLOR) .*zx-• *- KiSH*- KSr«J O&x 

4^46<7)t'-y h T, $TgB0!&X>A£|£5El'S|t* { T£ 41\ 

$0 87 1 (80) .CRT3> h n-7TW-yT7 4XHCX 

?0->»w**1"4ffTft£8a5tT£4ta*, PC-8801T 
l±CRT 3> h o-x(±#tc8 KTffifflL 8 0/4 0 

ffT^O ifexli, 5 >7®i&(cJ:oTlT&^4 t. 

ZDWi&tty)') >&tZ>tztb<7) t'v M ! I0 87 K‘t. 

£4>, Nss-BAS I CTIi, 3 0 
6 C 0 H#ifcK®#LT* 0 it. 
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3 1 H : r-f 7 7° • XJ 'ymx-r- ?X£Atlt 2> 


3 1 H 
INPUT 

f'T "J~t' XT 'y*0)X7—9X&\1Jt 5 . 

ATM?- h 3 1 H#Jftl±, _t{£2 h* ■/ h t LX, 

T&6 t*?H ! PC-8 8 0 1 f£ffi<7)t*4 "/ 7" • Xfyf (S W 2 ) <7 )Xt-;? 
X ATlffl £ LTB^'b Iti 1". 

P C - 8 8 0 1 tcli 4 fcf >y pOrJlffl ATjrff— h £ 1 t' y 1 <75tfLfflit}73 T°— 1 £ { 
ffljftSft-CV'i-t-**, * «0 ilUB A*J tf-htfO + i?) 2 tf-y h* f 3 1 H#l&X>f57t' 
7^16 t* y h (C, 5£ ») (7)2 tr -y Hi 3 0 HfM 7 t* -y 1 £ 6 t* -y He 

bit 4 0 - 

tib<r> -+°— h t± j.— f—* { a igffl -e £ i -f. 

Tfi 6 t' y h *^l±, SW2 <7)Xr—^ x$r ATj-f^^'T'W.TU 
#t* >y 1 tf-( y 7" • XT •yf-<7)RH*£^L£1'. 

i 5 1 7 )■. SW 2 - 6 . ON( 0 ) 7 )il#rlT-K, 0FF(1) 

x>£ K£ 4’ 1 ) il*. 

^ 4 t’ 7 I- .SW2-5. ON(0 )X>£ £ X'<7 /-?%%), OFF 

(1 )<7) £ £ Xy-f-7 / — 9 £ ti *) £t . 

® 3 t-y h .SW 2 - 4 . 0 N ( 0 ) <7) £ tAX h -y 7" • tv 1 1 fy h , 

0 F F( 1 )<7) £ £ X 1 -y 7” • t v h 2 t -y h £ tc 0 £ t. 

|2h'7 h. SW2-3. ON(0)<7)£# 8 t v h ft, OFF(l)X) 

£ ^ 7 t' 7 !*£&») j-r. 

DUt-yl. SW2-2. ON(0)«i^' ,| ]f4f), 0 FF( 1 ) 

x> £ £'* U T4 *SL £& >) 4 -f. 

i 0 t' 7 1.S W 2 - 1 . ON{ 0 )«ilM (ODD) /'-')T 4 , 

0FF<7)i W\m. (EVEN) y-“'J T4 tZO it. 

Z tl h X) t -y H± ikX, T' 4 >y 7* • X-f yf A'ON (±|6] # ) <F> £ £ t v h 

0, XAyffr'OFF (TIbI^ ) <7) £ # t' -y h 7ir' 1 ic& i) £ 1\ 
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3 1 H : *5 



u -i • 


3 1 H 

OUTPUT 

CRTfciav^'jot- KR£*fr 4 "5 . 

£Btj.+°— F 3 1 H#JffeJ±, / * <) • *- F" is it/C R Tcor'-f X7" 
K£ =>> h n-;ui-.& fc «0 tf- F T*PC- 8 8 0 l&bT't±X>*^ 


/iMM&tB#*— F T-i - . 

/ T: 'J • ^- VlX N 88 — BAS I C ■=£ — K, N-BASICt-K, 6 4 K 


'<4 F • T-;wR AM^e—K ct) 3 ^e—i". 

±ft 2 h' ■/ F lifgffl? tlX V'i -t-tvCA*, / -t IJ • X- K<oaKlii2 t' -y F is 
it/SU t*-y Flc i •), C R Tf< X/M • *- F'coiSimig 5 t* 7 F, $4 
t'7 F, S3 t*7 F, isit/^O t* ••/ F£i •offrirv'il". 


«Ti: #t'7F <7)jgi*lit. 

S 5 f 7 F.*¥8808:2 4. 8 K HzX>l|JSii5f»j£f'4 XTi/4 (P 


C — 8 8 5 1 i «iPC-8 8 5 31?) SrflM! Lfc''4 X f- 
FCRTt-F*i:fcv>T, 0 <r> t £ 2 5 It*- K£, 

2 Off*- F'£lf5£L£1\ 

S4B7 F.®3 t'y Ftf7 7^ -y z 

X>$4 t'-y F* f ocnt ^ii'fiTXlfiJl/77< -y ? • * — K, 1 
entity- - Xyy j -, ? ■ x-Y t%') & t. 

S 3 t' 7 F.0 Xi i^r^rXF • X X •) — ><?)&■$;, 

77^ y 


I2t'7 F. OtfOt^Nss-BAS I C*— F*, lWi^N-BAS 

I C*- Kt ir ‘) it. 

% 1 t'7 F. 1 <T>t # 3 2 KF • t-ARAM^- F'i &'), 0 

X>£ £fc(ig &2 t'-y F T**- F'*t5E£ff&^41~. 

SO t'7 F. ''4 Xh°— F'CRT (#ffljS5f»ftJtt'4 xrw^f) *- 

F«/7 7< >y ^tZiJV'T, OOi # 6 4 0 X4 0 0 F'-y F X 
1 -tv — yfc, 1 cot £ 6 4 0 x 2 0 0 K ■■/ F x 3 7 i--y £ 
IhteL i t. 
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4 0 H : &H<z> □ v h □ - JHl# & At 1 5. 

4 0 H 
INPUT 

3 >• F □ -Mt^r £ A tit i>. 

Afttf- F 4 0 H#M<7)3 > F o-;H»^l±, CRT, ? j-?, ft 
y l )TA''(>f7i-X, ru >y t. y. 

T^#t*v F<oitisfc£^Li t. 

i 7 t’ 7 F.LTv'i-tiA. 

I6t'7 F. itmix V'i-tiA. 

S5 h "7 F (VRTC) .CRT<03> Fo-xKc^fflLi-t. 0« 

t £^3pii±t/* ') • ') F U-—xgfjHH, 

—j-ivv • 'J F 

I 4 t 7 F (DATA IN) . 9 T -rfrh^Xt) £fr& 7tz&h<0 t' 

•y F T, t- F«CLKi laD5 Z*kX-s ') T)l • T-? Z 
■SW) it. 

|3t*7 F (EXTON) . W'-Xl:tS?irCi'SEXTONffl 

^(nUkmzmii t. 

12 17 F (C D I N) .V ')7;u tnxlx (S I 0) x> A 

t'JT'flf? FFfcthfcfiML, CMT*‘b<0^ urif-^ 

£«ttiLfc*£lC-fe-y F3ft.it. 

ilt *7 F (HCRT) .0 c7)if^N txf- F'C RTt- F' (# 

0 0 X 4 0 0 F'7 F'sm) , 

1 — R T -t — F'T't. ZCO h'-y F IJ P C- 8 8 

0 1 f£®<7)x -v >'< • XT -y tXi^SSjc j; 0 t^FbL i t. 

1087) (BUSY) .7*U y7i‘iF<0BUSY (READY) Ft 

-fx^ail^fflLi t. 



380.-7 F, 
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4 0 H : > h ±i*t 5 


4 0 H 

OUTPUT 

£■«(?)□>• b □ tit 5. 

as##— b 4 0 H#itiic7)3> b 7'-*f-, CRT, X 

T-v, T'J >X l$WL\zhfzr>X'<'h<f&\z, 1 h'-y b t^frLT 

1\ 

HTlc#t*y 

»7 E'y b.£■£/,. 

t*'y b (uop o) . 11 *"/ b <7)?afflaj7j4f-h t ittmti 

M-WZt t. 

i5 t*7 !• (BEEP) .I*]iij7'- t f— £ => > b d — >vfb fzsb x>t* y 

b T-, 1 C-te y b II] 

8&±Tii£«0fcr-y b^bX>aj*bf-f§-t, 2.4KHz07Dy? 

(AND) A''Xh°-*tcib*§2ti-r. 

I4fy b (FLASH) ..TX>t' y b £-tey b i oT77 

7/>r (S5i$*£ &X-.) •*-h* i $:») £ 1\ ^-t-b'Tii 
b 5 C H~ 5 E H#i4X)$l]®P(c J: oT, ^tht^G 
VRAMJ-fel/ 7 b £9. ^ 

frii#***?*^ $r*co£Bfrlf£1-. 

i 3 h* y b (CL D S ) . CRT3> bo — 7^T-vTx^X*tl> 

|g(c7)|S1^3> ba-^f0i'T?f-f7'Tt. 

I2b'y b (CLK) . XT vi cOAtti fjt: ^ > b o—f-J6<7) 

y 7 ] • ?d y X£-^-X.£ -t. 

i 1 t' 7 b (C S T B ) .^-f-ytsvy K^-fey b 1“ & 46 Ic, X 

b n—7*lt§-£ 4x£ t. 

iot'y b (P S TB ) .7" U > X^X b 

femn t. tm&rn -c it i tc * -y b t -c t t&, 1 — o 

— 1 tmtz-tt&mi- <fc o-CX bD-7’^^4il,*i<-CI 

£ "4\ 

4- £, Nss-B A S I CTIi, 4 0H#Jft«Jb*iK-btlB*Lfcf'-^SE 

6 c i nmmzi%&ixh') it. 




i / o 


* m 
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5 0 H : C RTh□- 


— 9 2>. 



- h 

1 / o 

•tifc 

TOc 



| m 

K 


'i7'< •■/ "7 r 


5 0 H 

OUTPUT 

C R T □ > F P-7~'7>-? fctij* T5 . 

PC- 8 8 0 li'MltV'SaPDS 3 0 1 li, l?IJtmi-§-?S±SI, 
T F iJKa-i-Efy^ijf^ifyyiicfiLfcyo 


/7vT^C R T 3 > I-D-7T, i-ofi7f 

-77h*<7'o/777mstft, frit 

7 F 0 ti— Fl-MLTfi, K£T F 0 h** — F £ 

M&lXWmth /> • F 7>x-<ru> F • 7 F U ti- F t, Sc^i- Y ■ 
X 0 T FT F 0 Ki - F • X 0 Til:'/>mL tz F x> X^7P> F • 7 F 0 t'i 


- F timthmv^fi'e-X, T F U tj- F * Kl+i:v»*t, T# it. 

y > • F y>x-<rv> F • T F >J Ki- Fl±, FiTF 0 t'^- F • 

3 - K £ |t]-co V R A M±lzm& t h -H&xm^coEM £ *-±<3 ;¥ ••/ F (M S B) 
lz J: -o Xlfb 7 tt'&l-'&Stfi&lj&Xii&Z> X>Xtfr\ PC- 8 8 0 1 Xlt 2 5 
6WX>* v y X fci6lc F 7>X^Ti/> F • T F ')h'a —FiFfffll 

1\ 


^<7)C R T 3 > F n-?lzs*7/-?i:&%+&t;ib<7)toll#- FA‘5 OH# 
mx-t. CRT y> F a-y (3 3 0 1 ) I 3-7> K & i: t/'7 / - ? <7> 

r-? • x-F^*W#BR<*r$V'. 


5 1 H : CRT3Vl'n-7^37>F>tli*t5. 

5 1 H 

OUTPUT 

CRT37 F n-7^'7 * -9 btiitltZ. 

±S£coC RT3> Fo-7 (3 3 0 1) |:3v> K£ :ix%lth 

f w 5 1 h mmxt. 

mi < li, /(PD 3 3 0 1 <y> T”— 9 • X— F v\ 
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5 2 H : 


5 2 H 

OUTPUT 

it- —7’ — • t)=7 —15 <3:tf'<y 7 • ^7 •> > K • T2>. 

5 2 Hi, CRTX ? 'J-> <r>X-?-• ijy- 

(t^fX ? • f 7 ^> K • 7 ^ 7 “ (/ 77 -( 

•x 7BiH<7)Wf:<x)fe) l> Xi^cOtK— hf-t. 

HTt, 5 2 R i, * — 7'— • X77—, /<>y 

? • 77 7 > K • iiy—(nWY&fcinL £T\ 

%7 fy h (iilM^T't. 

S 6 t x H-^y^ • 77 7 > Y • tiy-(r >G R E E Li7. 

i5h'7 Hv<7 7 • 777> K • X77-<7)REDff-t^®l|®Li 1-. 

*4 t'7 h T'X<7 7 ■ 7’y^y V ■ 7>7-7>BLUEfi-^£fM®Li1-. 

i 3 f 7 HiUM^-Cl-. 

82 t'7 h T-.-K-7- • ijy—cr )G R E E Nff-^SrSI]® L J i". 

8it*7 h-c-K-7- • tjy-nREum^zmmiz t. 

% 0 h' y h T-K-7- ■Ax-WBL U E (§-§•£ m LSt. 

-7), iK— 7— • tty— &ZlF'<'y 7 • 7‘y'7> Y • #7—fi, Nss-BAS 
I CiliSSMI*^, fctiffN-BAS I Ct-K^6 4 K t-JU ■ y Aco^e- 
Yiza^x tfijffli*sunlit. 



m m 


V >7’;u 


100 ; 

110 ' execute on n88-basic mode 
120 ' 

130 SCREEN 1 

140 FOR B0=7 TO 0 STEP -1 
150 FOR BK=7 TO 0 STEP -1 

160 OUT &H52,BO*&H10+BK 

170 FOR U-l TO 100:NEXT U 

180 NEXT BK 

190 NEXT BO 


100 ' 

110 ' execute on pc-8801 n-basic mode 
120 ' 

130 ' 

140 FOR B0=7 TO 0 STEP -1 
150 FOR BK=7 TO 0 STEP -1 

160 OUT &H52 ,B0#&H10+BK 

170 FOR U=1 TO 100:NEXT U 

180 NEXT BK 

190 NEXT B0 
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5 3 H ! m&t 5G VRAM 5> 



5 3 H 

OUTPUT 

S/Tbf SG VR AM^^TS. 

tb tl ;f°— h 5 3 H ( L S B ) 4 t' 7 h ftTfi 

tr-yh (LSB) (c ioTfifX 


4‘4j, 5 3 H#iillcOT°- H±£b7 M'T^f-( 7'- n7 (LOW) X'h&tztb, 
itTf&h' 7 U 1 X h £-£A. (DISABLE). il#(± 

r^x YMMt&ftfritztoVL, ftTffib'7 K±0(c LX fc# il". 

!3t'7hllt7Hi, 77 7 4 -v ? ■ ■*- K(c 

77 7 4 -7 9 • -t— K(c4iV'TI±, 640X200 K 7 |-ai<0/77-( v 7 
@Uffi£ 3 i’f**. ^<7)^:—K(c LX'T(±G V RAM 0, GVRAM 

1, GVRAM30/774 7 9 ffl V R A M £ fazLL T'Miffl L X v> £1". 

3lfiX>V R AMJSStSi‘Si'l:iiet4E 7 h A*® 3h'vl~ll 


h' 7 h T% it:? 

|3t'7 
*2f7 h 

W, 1 b 7 h rtU x>*§£% 
iot'7 h *<i <7>*&£-, 


ir-3"CV' £-f. 

GVRAM2 £*7jKl4-b/l 
GVRAM 1 i-tfvl 

GVRAMO £S^L£ -b/v 
rA-x I-i!ig£S75L £-£><, 


(DISABLE). 

(DISABLE). 

(DISABLE). 

(DISABLE). 
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5 4 H~ 5 B H : t>=7— • U>y h 5> 


5 4 H~ 5BH 
OUTPUT 

*5 - • h*tt£TS. 

Nss — BAS I C <7)ti7 — • 77 7 ^ y 7 • -t — KT'ii, /77 ^ 

■y 7-y 1 T'tF & i 7 tc fro T &*), ZtlX'ij 7— Jg 

£fc, i« 0 '^-y h#-f fr*B&L fr *§£-(;: ii, -7*T-77^ 
> K • *7-i LT*t^l£ffc!> f ''°lyy E #-§■£ LTi*ffl£*i il". 

It ^cZ. %> o X ^'NvFtC^^'T !>♦*«•? IF ^ T~7^*, Z.<7> fj 7 — • y?V -y f. 7!)* 5 

4 H~ 5 B H#ifeO{B*4f- Hcfflf;? tltv'i t. 

5 4 H~ 5 BHiM*7- '^yN -y^u-y E 7 Icfcfjfc LX is '), Ztl 
Co <T) Tf— E f± Tfi 3 h* y E cr>A.7t> { #%)jZ-t. 

tiif] T”— E 5 4 H#Mli ij 7 — • y<w y !• 0 T"i”. 

ttSTj-t”—h 5 5 H#Elii(± # 7 — • y-fw-y E 1 X'i". 

ttJ* T°— E 5 6 H fEE&ii fr 7 — • ><V "/ E 2 T’i". 

ttj Tj/'K— E 5 7 H#itll(± fr7 — • y'°Uv E 3 X’~t. 
tB tStf— E 5 8 H #Jt (± i] 7 — • '< w .y E 4 -el-. 

E 5 9 H#M(i fr 7 — • y«u -y E 5 ft. 

1- 5 A 7 — • '<u -y E 6 T”i“. 

tBTlT°— E 5 B H#ilii(± fr 7 — • y?u -y E 7 

^tirtL<7)-fiCl 3 f-y E 

$ 2 h' 7 hi- -fe7 hi-1, i ys"ly .y f. ff) G R E E Nff^'ON | C fr t) £ t. 
‘^1 t' y E fr -tv El'S £ y<u -y FORE Dfg-^ONUfr •) J -f. 

%0 h'y E fr-te-y FtSiy^v E OBLU 0 N Icifr *) £-f-. 


* - E 
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100 ' 

110 ' color palette demonstration fast version 
120 ' 

130 CLEAR ,&HB8FF 

140 SCREEN 0,3:UIDTH 40,20:CONSOLE 0,20,0,1 

150 COLOR 7:CLS 1:LOCATE 5,7:PRINT ‘color palette demonstration’ 

160 CLS 2:SCREEN 0,0:FOR T=0 TO 1000:NEXT T:CLS 1 

170 R=120:N=35:PI=3.14159 

180 60SUB *SUBC0L0R 

190 GOSUB ^SUBTEXT 

200 GOSUB *SUBGRAPHIC 

210 GOSUB *SUBPALETTE 

220 GOSUB #SUBC0L0R 

230 LOCATE 0,0 

240 END 

250 ' 

260 ^SUBTEXT 

270 LOCATE 16,9:PRINT ‘NEC’ 

280 LOCATE 17,10:PRINT ‘PC-8801’ 

290 RETURN 
300 ' 

310 *SUBGRAPHIC 
320 FOR GR=1 TO N 

330 A=GR*2*PI/N:X=2*R*C0S(A)+319:Y=R*SIN(A-PI/4)/2+99 

340 C=C+1:C0L=(C MOD 7) + l 

350 CIRCLE(X,Y),30,COL 

360 LINE -(319,99),COL 


370 

NEXT GR 



380 

RETURN 



390 

' 



400 

*SUBPALETTE 



410 

RESTORE 



420 

FOR ADDR=&HB900 TO 

i &HB928 


430 

READ CODE*:POKE 

ADDR,UAL<‘&h’ 

+C0DE*) 

440 

NEXT ADDR 



450 

ADDR=&HB900:CALL ADDR 


460 

RETURN 



470 




480 

DATA le,ff 

' Id 

e, Offh 

490 

DATA 16,55 

pal: Id 

d,55h 

500 

DATA Oe,55 

' pal 2: Id 

c ,55h 

510 

DATA 7a 

' pal 3: Id 

a, d 

520 

DATA b9 

cp 

c 

530 

DATA 20,04 

j r 

nz,notdsp 

540 

DATA 3e,07 

Id 

a, 7 

550 

DATA 18,01 

jr 

dsplay 

560 

DATA af 

notdsp:xor 

a 

570 

DATA ed,79 

dsp!ay:out 

(c ), a 

580 

DATA Oc 

' inc 

c 

590 

DATA 79 

Id 

a, c 

600 

DATA fe,5c 

' cp 

5bh+l 

610 

DATA 20,ef 

jr 

nz,pal3 

620 

DATA 21,e8,03 

Id 

hi,1000 

630 

DATA 2b 

wait: dec 

hi 

640 

DATA 7c 

Id 

a, h 

650 

DATA b5 

or 

1 

660 

DATA 20.fb 

jr 

nz.wait 

670 

DATA 14 

' inc 

d 

680 

DATA 7a 

Id 

a, d 

690 

DATA fe,5c 

CP 

5bh+l 

700 

DATA 20,df 

jr 

nz,pal2 

710 

DATA Id 

' dec 

e 

720 

DATA 20,da 

jr 

nz.pa1 

730 

DATA c9 

ret 


740 




750 

*SUBCOLOR 



760 

FOR 1=0 TO 7 



770 

COLOR=(1,1) 



780 

NEXT I 



790 

RETURN 
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5 CH : G V R AM^7-^ XbAtlt Z. 



5 CH 
INPUT 

G V R AM<7)Z.-r-?7.£Atl ti. 


f W 1% I A*#— h 5 CH#itfe*>f,«7)A*T'— ?l±, GVRAMO, GVR 

AMI, GVRAM2603 ■'<> ?WGV RAM (Dcff't'sO G V RAM 7b { -b U 7 h 
£ ArO'l> (ENABLE) <nt\ £ tz-ku 9 h (DISABLE) 

#cS8 T* * & <r> fr cr> x r — ? X £ .anfc L T v> £ t. 

A T/f'— ? fi, S2t - 7 I ~ i 0 t' 7 h *'* -tft -Fft. GVRAM2 — GVRAM 
0 IcWf&L TAJ»), ±fS5 t' y h (AHI^A, •) £ 

« 2 t'-y h 1 coJi-g-G VR AM 2fr-tu 9 |--f. 

B1 t' •■/ h A { 1 STtf-g-G V RAM 1 7 h t. 

S0t'7 h^lcOif^-G VRAM 0*>' -feu- ? |- 1“. 

°i‘). ii# T > R A V 9 \ ^ ixX i'' l> AJcffiT'IA, SS2h*-y|-~^ 

0 t' 'y h£Tj!) f 0 ic I) -te -y h £ AlTV'4 -f. 
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5CH—5FH : GVRAMfr-trix^M-?). 



5CH-5FH 

OUTPUT 

GVRAM£-feP? 


m _ m_ 

fflVRAM) 


P C - 8 8 0 1 Xii, 1 6 K'M 1 <F> G V R A M ( /7 7 \ ■/ 9 # 
£3'<> 9ffl <7)G V R A Mliii#C P 


UOTKl/X • -x-y-/±lcli £>•) i-£A. 

^T 1 , GVRAM£CPU A>G itHeT 7-fe X T"£ b i n\z-$btzt><r>'<'s 9 
-9J') Ife*. £1 t& L f £ ItiUfv'tt £-£A,A*, - •) 

tR tj T° — I- i { 5 C H ~ 5 F H#HkX).+°— h -Cl\ 

GVRAM 0 ~GVRAM 2 i>J: t/il# N 88 — B A S I C <r>V-9 'i 1 ) Tf 
i;Lt:ffli't'''4^ / f>RAM« 1 4 7 5CH~5FH|ln40 

Zlhtltb^lzi 7 £-tew- 7 hi" # i t\ 

-tu 7 h LA; R AMli CPUWv-yTJiC 000H-FFF F H#Hfe(cfiiSLi 


5 CH#Jft^th*L*»&-GVR AMO £-teP 9 Hit. 
5DH#»^ffi*Lfc*t^GVRAMl£-teP? h lit. 
tB*rK- 1 5EH#*'s|B*Ui^GVRAM2S-feF 7 h L S t. 
fttJte-F 5 FH#Hfe^tbtJ >RAM£-teu 9\ Li t. 


FFFFH 

C 0 0 0 H 


/^>RAM 


GVRAMO 


GVRAM1 


GVRAM2 
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100 




110 

test graphic 

uideo ram 

120 




130 

CLEAR ,&HB8FF 



140 

FOR ADDR=&HB900 TO &HB94A 

150 

READ CODES:POKE 

ADDR,VAL(* &h' 

160 

NEXT ADDR 



170 

SCREEN 0,0 



180 

FOR 1=0 TO 7 



190 

C0L0R=(1,1) 



200 

NEXT I 



210 

ADDR=&HB900:CALL ADDR 

220 

END 



230 

' 



240 

DATA f3 


' di 

250 

DATA ed,73,fe 

, b9 

Id 

260 

DATA 31,fe,b9 


Id 

270 

DATA 06,01 


ld 

280 

DATA cd,2f,b9 


1oop: call 

290 

DATA Oe,ff 


ld 

300 

DATA cb,40 


bit 

310 

DATA c4,37,b9 


cal 1 

320 

DATA cb,48 


bit 

330 

DATA c4,3b,b9 


cal 1 

340 

DATA cb,50 


bit 

350 

DATA c4,3f,b9 


call 

360 

DATA 04 


inc 

370 

DATA 78 


ld 

380 

DATA fe,08 


' CP 

390 

DATA 20,e6 


jr 

400 

DATA cd,2f,b9 


' cal 1 

410 

DATA d3,5f 


out 

420 

DATA ed,7b,fe, 

,b9 

' ld 

430 

DATA eb 


ei 

440 

DATA c9 


ret 

450 




460 

DATA Oe,00 


clr: Id 

470 

DATA cd,3f,b9 


' cal 1 

480 

DATA cd,3b,b9 


cal 1 

490 

DATA d3,5c 


gvram0:out 

500 

DATA 18,06 


jr 

510 

DATA d3,5d 


gvraml:out 

520 

DATA 18,02 


jr 

530 

DATA d3,5e 


gvram2:out 

540 

DATA 21,00,c0 


' full: ld 

550 

DATA 71 


' ful11: ld 

560 

DATA 23 


inc 

570 

DATA 7c 


ld 

580 

DATA b5 


or 

590 

DATA 20,fa 


jr 

600 

DATA c9 


ret 

610 





♦CODE* > 


< 0b9feh),sp 
sp,0b9feh 

b, 1 
cl r 

c, Offh 
0 , b 

nz,gvramO 

1, b 

nz,gvraml 

2, b 

nz,guram2 
b 

a, b 
7+1 

nz,1oop 
cl r 

(5fh),a 
sp,(0b9feh) 


c ,0 

gvram2 
goraml 
(5ch),a 
ful 1 
(5dh),a 
ful 1 
< 5eh),a 
hi,0c000h 
(hi),c 
hi 
a ,h 
1 

nz,ful11 
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6 0H~6 8H : DMAaH' P - ^ £$IJfPt ?> 



6 0 H~ 6 8 H 

OUTPUT (68HflO*lNPUT/OUTPUT) 
DMA3> I- □ -7^Wt i>. 

DMAa> I-d- 7 (//PD 8 2 5 7) li, TA-XhfflVRAMX) 
f-^CRTa y \-v-y UPD 3 3 0 1 ) ^ D M tzsb ? 

tlX v-> Si-. 


U PD 8 2 5 7 (±7"n 9'y-?7°)Ux DM A 3 > f- D-7f, 4 f--v > * AH-fcf 
Lt, V-X • T Ku-Xfc it/$GS^S£®5£-f£>^T'£ il - **, Nss-BA 
S I CXiit— h • d— K • •£— 

i-tt-A,. T— K • d— p • -t— H"Cli, —Sit 05 Sic:' t lc DM 

ATKvxoo- Visit/-/*)-by y^fi^biiX^tir. 


«Tt, DMA3> 

6 0 H#J&. 

6 1 H#i&. 

6 2H#i. 

6 3 H#it. 

6 4 H#ltU. 

6 5 H#*. 

6 6 H#Ml. 

6 7 H#*4l. 

6 8 H#Kfe. 


|- o — yUYMtf- 

- 1 £jj*L*1\ 


••4-v> 4^ 0 

D M A T PVX • -tv 

h 

■••4* > 4^ 0 

9 — l +)V • ii*7> 9 

• -te *y h 

••4^ > 4^ 1 

D M A T K v X • -fe'y 

h 


?—i-FA- • i]<9>9 

• ^7 1* 


DMAT pPX • -tv 

h 

■••4-v > 4^ 2 

9— ;-f;U • 9 

• -te *y h 

•••4a* > 4^ 3 

DMA 7 K U X • -fe -y 

h 


?— ; -j~)V • i] P7 > 9 

• -fe *y h 


h iii. \9Xr-9?- ■ •) 

- K 


Nss-B AS I h 6 4 H#Hfe, 


6 5 H #Mfe, fc it/6 8 6 8 HflOAliXf-^X • '] 

- I- 2: ItfffltSfA'fJit. 

D M AfejiS^f^X) 7 n 7 f • ?4 X ? • a.— -y h Sr&icl' SfCiot 1 -f-V > 


^Ui^SiVC L± V'i-f. 

PC - 8 8 0 1 <0X n y h • /<XKIi, DRQ 1, DRQ 2, D ACK 1, D~ 
ACK 2, DMATC, FD R D Y, h $ tlX H 0, I 

/Q <7)Pb 1 -CD MAg^lfi: x&1*K 4* t V'i -f. 
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7 0 H : * 7 -t 'y h • T K UX £ At) t 2> . 



7 0 H 
INPUT 

77-fe 7 h * 7 KUX£A *t5. 


Lff- ^ 1 N as -BAS ICIir^xh •x'JTilTOOOO H #!&;!>> 7 

F F F H #JHi(7)R AM 3 2 K'<4 h fciaiffl L £ -fW, ~ X>i ij Ti±ii#C PU <r> 
^ -t U • -? '-/-riL\z\tk ') i -feA. ;<t) 7^46N88-B A S I C*>bT A-x F - a. 
U 7<r>7— &tzT*X b • x. <) 7^7- jA tril-g-lcfi's 

— P ^ x T (C I-jT, t A- X p • i') 7 «1 K^'^f F ^8 0 0 0 H #}& 

i 1 b 8 3 F F H fi«f A-X !■ • 7^ F^tv.vTL, L 

r«tA#S*ff*V'4t. 

P C — 8 8 0 1 Xii, Zcot A- x F • 7 > | J| 7^V7 fe“> itzsb 

I c T 7 -try h • T FWX • fev*X;?£ltoT>'S -f*'*, t7-fe 7 f- • 7 pi/x • 
U^x^oftli 7 0 H #iiMX> A7j <+°— b £ u- F*1-£<»c 
MttWtcli, 8 0 0 0 H~8 3 FFHfttA<7?-txjftfciJ, T^-bx? 
tl^:T FPXWflft'y F (MSB) J-vx 7lit. *l:MSBJ-7X7l 
£7 Kpx i T7-fe.y b • 7 K P X • l/xX7«t7-fe 7 F • 7 K P X tziattz 
7KPXi:LTRAMX>7:?-fex£: ; fr£ri,'>£4-. 

J: •), 77 -fey h • 7 Kp x • p i>x 

Jr-oTr A-x F •7-f>K'7§ r iiL'C7 ?-fex-f 7 K p x £ 2 5 6 

'M P #l£T'^ft£ -feA^T*# J t. 

Tfe^r'L, OOOOH'7 F F F H #Mi<7)R A M(±#ic*^iA^7fe'lt(i -77'— p 
-f. 
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7 0 H : >J-7-tr-y h • 7 K U* • 5 


7 0 H 

OUTPUT 

7 7-fe-y p • y K 1/7 • K7X7£|g£1- 2>. 

77 -te'v P • 7 P' u X • 1/yX^t-f-7£if£ jXti'fcrt<7)thft;K 


CPUi’b 8 0 0 0 H ~ 8 3 FFH 7 -tr X £ ft ftifft-ft (i, T 7-tX 

£ft£7 P'W X<Oft±fit' y P (MSB) -7X7 L, § fc K 7 7 -te -y p • 7 K W 
X • i/yX)'«t7-ty P • 7 K w X i x>£f||!£e7)7 FvxilTRA 

M^T7-feXlit. 



- P r-t. 
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7 1 H : te3!ROM<7)*x-?X£A2Jt 3 


7 1 H 
INPUT 

JS3S R O M<73 X 7— 9 7. %r A* t 5 . 

PC - 8 8 0 1 T'li, 6 0 0 0 H~ 7 F F F H#Jt«7)R OMi ') 7 
(C^-LT 8'''> F Lt^it. 1 '< > 9ti Nss - B A S I C<7) 

y ^ffclJSUu— i-a* 
h, i—'<7)(± 7'<> ?«AT7n7 F l*bigl3:'BTtg i: 
t'i 7. 

£tz\t/ 4 > 

ROMi f -fei/ 9 I- fftti'liWWitxf-F 7 1 H#ttl:A 
AjLT^J-t. 

fcAJJ!- F 7 1 H#iti!CO&h*'7 F tifeijgR OM-tt 7 F <OWj££ 1 £ 7. 

I 7 f 7 F £''0<7) *§-£-, i£3SR OM 8£ f -fet ? F 
I6f7 F7'0 cr)i%&, t£3fi ROM 7*''-few 7 F 7. 

I 5 f 7 F^'O^tf-^, t£3fiR OM 6?!> f -few 7 F §ftX^£t. 

H 4 t -7 F *>'0X> *§•£-, R 0 M 5 7 -b t ? F § ;Fl TV' i 7. 

H 3 t-y F A { 0 CTtigi'fr, tSROM4 F ?ftT^3:7. 

H2 t-y F i'OWl^, t£3fiR 0M 3A'"-bw 7 F£ftT^£7. 

Hi t-y h*''0<7)if^, t£5iROM2* f -bi^7 F£ftT>'£7. 

HOt' -7 F * { 0 c7) if-g-, SIROMli'-feb7 F £ft-0'i7. 

J71±^J: 7tc, .Ift^Ot-y Hi7?r-f 7*- o7 (LOW) X\ it«t - 7 
F* { 1 T'^oftll-g-iccOXs Nss-BAS IC/4>ROM« 6 0 0 0 ~7FF 
F Hf®A { -feb 9 F £ftT 0 £ X. 



m Si 
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7 1 H 


7 1 H 

OUTPUT 

J£§SROM£ M'S. 

PC -8 8 0 1 TI±, 6000H-7FF F HUitfecoR OMx U 7 
l:^lT 8 ^ 9<r >1 L7>'£ t. 1 '<> 9 fiNss- B A S I C <r> 
4 > 9 7 ') MfHi { /7 7v( -y 7'SIH@;8—1-** 
0, J-—+f —7#<7)T'#I) <7)(± 7^<> ^c7)^T"XO .y Ift if I£ P]'Bb <8 
^■-o'CV'i 1". 

::ttM£!lROM8'<>;7:b'J:r/N88-BAS ICX)/T>ROMSr-few^F 
1 7 1 H#iHT-r. 

;A(c, — h 7 1 HHHfeO-g-b'y 1 tWM ROM-bw 7 1 x>W$£tSL£ 

t. 

|7t*7 h*8 0-e}£36ROM8*8-feW 9 h 2 tit t. 

16 87 1 *> { 0-Ci£3KROM 7tf-tU9 YZtiilr. 

W.S b-y h*>''0T't£3SR OM6A ( ^V 7 f-Silit. 

$4 b-y 1*80 T'«iROM5*> { -feL ? 1 

|3f7l' *< 0 T'I£3SR 0 M 4 *> f -fe 87 1 ?ixi ‘t. 

S&2 b'-y 1-*8 0 TffiSgR 0M3A f 8l/ ? 

SI 87 h*)>'0-C«5gROM2^-bW7 

10 87 1 i ! OfSIRO Ml (Nss XU ffl) *8-te 871? i". 

J-jLtco J:-j fc, ;HW87lliT7f<7 , -B') (LOW) X, £X «Ob -y 
li-'lTioCOX-, Nss-BAS IC>T>ROMc7)6000H~7F 
F F H #14*'"-t L 9 1 § tl i t. 
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7 8 H : *7-iZ'y b • 7 b U X £ ? V S > b T 2> 


7 8 H 

OUTPUT 

*7-k-y b • 7h'l'X%'Ot? ') bti. 

7 7-fe-y b • 7 b"u x • Wi?X t7-t 7 b • 

T h'U XfrJ > 7>) / > b t&tzshnmtl#- b A f 7 8 H #ilTt. 

Nss —B A S I — K t ^' T, CPUi>b 8 0 0 0 H~83FFHSil 
7 -fexSih. £*#£-(:: li, 7 7-tx$^7^7 Kw x<7)ft±&t' ••/ b (MSB) 
Jxx?l, $feUt7-b7 b '7FFX'i/xX7«Ot7-fe7b • 7 Fu x£ 
Dnz.fzhnZUmnTb’ls Xt LTR AMJ'T 7-tXlit. 

7 7-b-y b • 7 K w x • u X X?X>|*!^£ T > 7 'J X > b 1-|)/ia6lc(i, tb* 
T°- b 7 8 g#(±jsrT'i*‘i 

i -fr/v. 

£ tz, *7 -fe'y b • 7 K u X • U 7 XX^.<7) u — b* • 7 4 b l±, \thtl 7°— b 

7 0 H#itfeSrf£ffl Li7. 



| -fr > ] 

! - dump text ram area 




0RG 

0B900H 

B900 

110000 

LD 

DE.0000H 

B903 

AF 

X0R 

A 

B904 

D370 

OUT 

(70H),A 

B906 

210080 

L00PLL:LD 

HL.8000H 

B909 

0E10 

LD 

C, 16 

B90B 

7A 

L00PL: LD 

A, D 

B90C 

CD4FB9 

CALL 

DSPACC 

B90F 

7B 

LD 

A,E 

B910 

CD4FB9 

CALL 

DSPACC 

B913 

3E3A 

LD 

A,' :' 

B915 

DF 

RST 

18H 

B916 

E5 

PUSH 

HL 

B917 

0610 

LD 

B, 16 

B919 

3E20 

L00PS1:LD 

A,' 

B91B 

DF 

RST 

18H 

B91C 

7E 

LD 

A,(HL) 

B91D 

CD4FB9 

CALL 

DSPACC 

B920 

23 

INC 

HL 

B921 

10F6 

DJNZ 

L00PS1 

B923 

El 

POP 

HL 

B924 

CD64B9 

CALL 

TENSPC 

B927 

0610 

LD 

B, 16 


of n88-baaic - 

» clear address counter 

; clear offset register 
; top address of text uindou 

; display address 

; dump hexa decimal number 
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B929 

7E 

L00PS2:LD 

A, (HL) 


B92A 

FE20 

CP 

20H 


B92C 

3002 

JR 

NC,ASCI I 


B92E 

3E2E 

LD 

A,' .' 


B930 

DF 

ASCII: RST 

18H 

; dump ascii character 

B931 

13 

INC 

DE 


B932 

23 

INC 

HL 


B933 

10F4 

DJNZ 

L00PS2 


B935 

3E0A 

LD 

A,0AH 


B937 

DF 

RST 

18H 


B938 

3E0D 

LD 

A, ODH 


B93A 

DF 

RST 

18H 


B93B 

CDC235 

CALL 

35C2H 

; check stop key 

B93E 

D8 

RET 

C 

J stop key, return to basic 

B93F 

0D 

DEC 

C 


B940 

20C9 

JR 

NZ.LOOPL 


B942 

D378 

OUT 

(78H),A 

{^increment offset register 

B944 

7A 

LD 

A,D 

. 

B945 

FE80 

CP 

80H 

; check end of msb byte 

B947 

20BD 

JR 

NZ.LOOPLL 

i 

B949 

7B 

LD 

A,E 

• 

B94A 

FE00 

CP 

00H 

{ check end of 1sb byte 

B94C 

20B8 

JR 

NZ.LOOPLL 

5 

B94E 

C9 

RET 


; end of dump, return to bas 



; output hexa decimal number 

in accumulator subroutine 



; destroys : register a,f 


B94F 

F5 

DSPACC:PUSH 

AF 


B950 

OF 

RRCA 



B951 

OF 

RRCA 



B952 

OF 

RRCA 



B953 

OF 

RRCA 



B954 

CD58B9 

CALL 

HALF 


B957 

FI 

POP 

AF 


B958 

E60F 

HALF: AND 

OFH 


B95A 

FEOA 

CP 

10 


B95C 

3802 

JR 

C,NUMBER 


B95E 

C607 

ADD 

A,7 


B960 

C630 

NUMBER:ADD 

A.30H 


B962 

DF 

RST 

18H 


B963 

C9 

RET 




output ten spaces subroutine 
destroys : register a,f,b 


B964 

3E20 

TENSPC:LD 

A,' ' 

B966 

060A 

LD 

B, 10 

B968 

DF 

TENSP1:RST 

18H 

B969 

10FD 

DJNZ 

TENSP1 

B96B 

C9 

RET 




a=&hb900Jcal1 
0000i 00 09 00 

OA 

00 

3A 

8F 

E9 

00 

IF 

00 

14 

00 

3A 

8F 

E9 

. :4* . :4* 

0010 

20 

46 

6F 

72 

6D 

61 

74 

20 

61 

20 

64 

69 

73 

6B 

00 

27 

Format a disk.' 

0020 

00 

IE 

00 

3A 

8F 

E9 

00 

54 

00 

28 

00 

3A 

8F 

E9 

20 

20 


0030 

20 

20 

20 

2G 

20 

20 

20 

20 

20 

20 

43 

6F 

70 

79 

72 

69 

Copyri 

0040 

67 

68 

74 

20 

28 

43 

29 

20 

31 

39 

38 

32 

20 

62 

79 

20 

ght (C) 1982 by 

0050 

4E 

45 

43 

00 

5C 

00 

32 

00 

3A 

8F 

E9 

00 

66 

00 

3C 

00 

NEC.V.2. J-HT.f .< . 

0060 

AB 

20 

41 

F4 

5A 

00 

6E 

00 

46 

00 

3 A 

8F 

E9 

00 

7C 

00 

* ABZ.n.F. :+*. ! . 

0070 

50 

00 

53 

59 

53 

54 

52 

4B 

35 

FI 

14 

00 

87 

00 

5A 

00 

P.SYSTRK5A. .Z. 

0080 

9D 

20 

2C 

2C 

2C 

11 

00 

8F 

00 

64 

00 

CB 

20 

11 

00 

DB 

^ ,,, ; .+.d.fc 

0090 

00 

6E 

00 

91 

20 

22 

4D 

6F 

75 

6E 

74 

20 

61 

20 

22 

3B 

. n . -r * Mount a * ; 

00A0 

3A 

CB 

20 

15 

3 A 

91 

22 

6E 

65 

77 

22 

3B 

3A 

CB 

20 

11 

it . *t’ new‘;: t . 

OOBO 

3A 

91 

22 

20 

64 

69 

73 

6B 

20 

6F 

6E 

20 

22 

3B 

3A 

CB 

! t" disk on lit 

OOCO 

20 

15 

3A 

91 

22 

65 

76 

65 

6E 

22 

3B 

3A 

CB 

20 

11 

3A 

.i t" even 'lit .* 

00D0 

91 

22 

20 

64 

72 

69 

76 

65 

23 

22 

00 

13 

01 

78 

00 

85 

-r* drive#* ... x.* 

OOEO 

20 

22 

46 

oF 

72 

6D 

61 

74 

20 

64 

72 

69 

76 

65 

23 

22 

'Format drive#* 

OOFO 

3B 

44 

52 

49 

56 

45 

3A 

20 

8B 

20 

44 

52 

49 

56 

45 

20 

; DRIVE: 1 DRIVE 

0100 

FD 

20 

13 

20 

FI 

20 

12 

20 

DD 

20 

D7 

3A 

20 

89 

20 

OE 

. a . > 1 . 

0110 

78 

00 

00 

IB 

01 

82 

00 

3A 

8F 

E9 

00 

2A 

01 

8C 

00 

44 

_ _I.D 

0120 

52 

56 

54 

42 

4C 

FI 

oc 

64 

EF 

00 

41 

01 

96 

00 

4D 

41 

RVTBLA.d\.A.1.MA 

0130 

58 

54 

52 

4B 

FI 

FF 

DO 

28 

44 

52 

49 

56 

45 

2C 

11 

29 

XTRKA £( DRIVE,. ) 

0140 

00 

58 

01 

AO 

00 

4D 

41 

58 

53 

45 

43 

FI 

FF 

DO 

28 

44 

.X. .MAXSECA S(D 

0150 

52 

49 

56 

45 

2C 

12 

29 

00 

6F 

01 

AA 

00 

44 

4F 

55 

42 

RIVE, . Ko.i.DOUB 

0160 

4C 

45 

FI 

FF 

DO 

28 

44 

52 

49 

56 

45 

2C 

13 

29 

00 

86 

LEA S(DRIVE,. >.■ 

0170 

01 

B4 

00 

43 

4C 

53 

54 

52 

4B 

FI 

FF 

DO 

28 

44 

52 

49 

. I.CLSTRKA S(DRI 

0180 

56 

45 

2C 

14 

29 

00 

9F 

01 

BE 

00 

4D 

41 

58 

43 

4C 

53 

VE,.fe.MAXCLS 

0190 

FI 

FF 

DO 

28 

44 

52 

49 

56 

45 

2C 

15 

29 

F 4 

12 

00 

B6 

A S<DRIVE, . )0. . 1) 

01A0 

01 

C8 

00 

44 

49 

52 

54 

52 

4B 

FI 

FF 

DO 

28 

44 

52 

49 

.7.DIRTRKA S(DRI 

01B0 

56 

45 

2C 

16 

29 

00 

CD 

01 

D2 

00 

53 

45 

43 

43 

4C 

53 

VE, . KA.X.SECCLS 

01C0 

FI 

FF 

DO 

28 

44 

52 

49 

56 

45 

2C 

17 

29 

00 

E4 

01 

DC 

A S(DRIVE,. ).A. r ) 

01D0 

00 '46 

41 

54 

4F 

4E 

45 

FI 

FF 

DO 

28 

44 

52 

49 

56 

45 

.FATONEA S(DRIVE 

01E0 

2C 

18 

29 

00 

FB 

01 

E6 

00 

46 

41 

54 

4C 

53 

54 

FI 

FF 

,.). .^.FATLSTA 

01F0 

DO 

28 

44 

52 

49 

56 

45 

2 C 

19 

29 

00 

15 

02 

FO 

00 

4E 

£( DRIVE,. ) ...X.N 

0200 

55 

4D 

4F 

46 

43 

4F 

50 

59 

FI 

FF 

DO 

28 

44 

52 

49 

56 

UMOFCOPYA S(DRIV 

0210 

45 

2C 

1A 

29 

00 

2D 

02 

FA 

00 

44 

53 

4B 

49 

4E 

46 

FI 

E,.).-. .DSKINFA 

0220 

FF 

DO 

28 

44 

52 

49 

56 

45 

2C 

OF 

OA 

29 

00 

47 

02 

04 

£(DRIVE,..).G.. 

0230 

01 

4E 

55 

4D 

4F 

46 

4D 

4F 

44 

FI 

FF 

DO 

28 

44 

52 

49 

.NUMOFMODA 5(DRI 

0240 

56 

45 

2C 

OF 

OB 

29 

00 

6B 

02 

OE 

01 

86 

20 

43 

4C 

55 

VE,..>.k...■ CLU 

0250 

53 

54 

45 

52 

25 

28 

4D 

41 

58 

43 

4C 

53 

29 

2C 

46 

41 

STER^(MAXCLS),FA 

0260 

54 

24 

28 

4D 

41 

58 

43 

4C 

53 

29 

00 

73 

02 

18 

01 

3A 

T$(MAXCLS).s...: 

0270 

8F 

E9 

00 

81 

02 

22 

01 

86 

20 

50 

41 

52 

41 

28 

19 

29 

*.■ PARAC.) 


A c 

Break 

Ok 
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E4H ; 8 2 1 4 (Dtlls's \> • 2> 


m m. 


E 4 H 

OUTPUT 

8214<7)2iP>l'*P'>X? 5. 


f% Ift | 4 > ?7 7" h • &, T>^7V”h-3>ho — 7(8 

214)c09u->h-i^i?X ? /ea6<7);f;— h f1\ Nss - B A S I C 

X'ltlhtl#— 1- E 4 HL fz 4 > 9 7 7 \ • C 3 HSiliilc 


E 6 H : 



> V a —;pf 2>. 


# — \ 1 

i / o 

m n I 


E 6 H 

OUTPUT 

-f>?9 7”l'£=>>l' n-UUf 2>. 


| » gft 


atf'-K- I' E 6 H#tt!i«7)T<iC3 h" v Hi, PC - 8 8 0 1 


+P+°— h $ tlf V' h T > 9 7 7 \- £TfTflg (ENABLE) il" £A^ih 


(D I SABLE) h o — ;He{£ffll£ t. 

*2 h* ■/ h.PC - 8 8 0 1 co S I K«fi:^f > ?77" h • 

^e— w<7)§f§2 h'7 He 1 

K£iitR-C# ft. 4 > 9=?7 h • * 
— KT'!± 8 2 5 1 (USART) o-SrM/''*x 7 7 
S Uiflijte T > ? 7 V h L i t. 

Sfsi tv 1-.VRTCOlW) ^-/ i? Ztklhlfztgi&lz, V'OVXn 

h T, T ? 

r ^ 7* • ~ 4 (ACTIVE HIGH) ft. 

| 0 t: v h.ij 7n- • T > ? 77 ' h ZfrWht't h frntk 

9r -f 7 ' • ''4 (ACTIVE HIGH K'fri* T t' v h T 
1\ 4-LJ, Ns8 — B A S I CTIi 0 7/u • ^UH > 9 77 I- £ 
^l^ie ® ffl L T v> b tz t>, zl— j if* f fi ■) f±+3J-&z£^ 


-et. 


201 






















E 8 H~E 9 H : h£A2>t5. 


E 8 H~E 9 H 
INPUT 

> l> 

PC—8 8 0 1 Iwi^ROM.K— h (PC—8801 —01) 

mi m^f-y i 

1 ) tf}*-+°— b E 8 H#Hk(;7 K U-x<7)Tfi'-'*'f h ^thtl l£i~. 
tti fj rK h E 9 H 7 K P X co _h.fi/ < T h £: itl Ol L i "i. 

2) E AH#itlcfpTb*>c7)f’— 9 (T—9 L £1". 

3) AO} #— b E 8 H #!&*> h 7 * > V • r— fcoTtiL'H h ZXtllilr. 

A**- h E 9 nm&frlz.y * > b • b£A.tll£t. 

4) EBH#lfilcfBIb7b'(7)T'—^ (f— ? g#i±ili;i¥tc) £tht)l£t. 

5) LLh£«E'lgj£ 0I&< 0)1 Li I - . 

E8H-E9H #Dfe*> A* L * 7 * V Hi 1 6t*7 h S (8 Ly b X 2 ffl) 
T-T W, 7(i<16X16 Kv h 1 9 'f 

Lt>'£1\ -tfrfcfb, 16X16 K-y 1C07 t > h £f»E£i- b fztblzli l 6 III 

cor- 9 Kfi znti i zt r'&mT-f. 

i£. #ft*^J±8Xl 6 K-y Z<ni%&lzliE 9 H 

&m>'i?<r>K-hr-9K\mkyA>\z, e 8 Hmtrc J x)^tiT'-9r^Wc : 7'i 
>l-*£fSL£1\ Oi o, 8X16 K'y I- <7)7* > h fciii&f ££*>(;: Ji 8 ©CO 
r"- ? ktj £ 1t& •) . 

l/4fti^li8X8 Kv h £-f-*'', ^<7)±#^-(C|±4 

1! 7> T'— 7 A ij 7b f E'^'T”1'. 



M Si 
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• 1 6 X 1 6 K? h (I 6 7-K) 




0 

(E 9 H 

• E 8 H) 


X 

1 

(E 9 H 

• E 8 H) 


X 

2 

(E 9 H 

• E 8 H) 

* 

X 

3 

(E 9 H 

• E 8 H) 

* 

X 

4 

(E 9 H 

• E 8 H) 

* 

X 

5 

(E 9 H 

• E 8 H) 

* 

* 

6 

(E 9 H 

• E 8 H) 

* 

* 

7 

(E 9 H 

• E 8 H) 

* 

* 

8 

(E 9 H 

• E 8 H) 

'X' nIz vL' \L' vL' vjy* 

/fv /fv 

9 

(E 9 H 

• E 8 H) 

X 

* 

10 

(E 9 H 

• E 8 H) 

X 

* 

11 

(E 9 H 

• E 8 H) 

X 

* 

12 (E 9 H 

• E 8 H) 

XXX 

XXX 

13 (E 9 H 

• E 8 H) 



14 (E 9 H 

• E 8 H) 



15 

(E 9 H 

• E 8 H) 


7654321076543210 


(E 9 H ) (E 8 H) 

• 8 X I 6 K-y h (8 n- K) • 8 X 8 K - y h (47- 



0 (E 9 H) 

XX 

XX 

0 (E 8 H) 

X X 

XX 

1 (E 9 H) 

X X 

X X 

1 (E 8 H) 

si/ ^ 'J/ '4/ ''l'' 

^ /fv /fs 

X X 

2 (E 9 H) 

X X 

X X 

2 (E 8 H) 

X X 

X X 

3 (E 9 H) 

X X 

X X 

3 (E 8 H) 


xxxx 

4 (E 9 H) 

7 6 5 4 3 2 1 0 

X X 

4 (E 8 H) 


X X 

5 (E 9 H) 


X X 

5 (E 8 H) 


X X 

6 (E 9 H) 


X X 

6 (E 8 H) 



7 (E 9 H) 



7 (E 8 H) 


7 6 5 4 3 2 1 0 




K) 

0 (E 9 H) 
0 (E 8 H) 
1 (E 9 H) 

1 (E 8 H) 

2 (E 9 H) 

2 (E 8 H) 

3 (E 9 H) 
3 (E 8 H) 
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E 8 H~E 9 H : jH^R 0MO7 


»° - h 

i X o 

fflt ®§ 


E8H-E9H 

OUTPUT 

iK^ R 0 M<7)7 K 


M I PC— 8 8 0 1 f- (PC—8 8 0 1 —0 1 ) £51 

-2? L A*§-£-C9, > h i T. 

1) — b E 8 H #14!; 7 K U' X<7>T i£- , < 4 

thfi T” 1 E 9 H #141- T Y V XcOjifi'"' ■i 1 £ ditj L £ T. 

2) E A H#14(cfsi^<7) f'— ^ (t"— 7 S-tlilKtnA) £tH£ll£T. 

3) A ^7 T b E 8 H ^14^ 7 > b • 7*'— 9 7)~jc^ b •£* A 7l L J: T. 
A^l •+> b E 9 H §14A* <0 7 % > b • t*— 9 <'Ojr.fi''' J 1 £ A^l L i ”1". 

4) E B ZlhtJlt-t. 

5) U±£-mZ:®m< OjgLif. 

w^J:7(c, *>}•$: XJyt & fzihizti, -^<^7 * > b 

*r T-1-.i^J I S 3— b*( U S E R’ S MANUAL 

tiH^ROMT KU XCr)ffllZltimbMm''h 0 JI-COT", ^cO)l<?: 
ROMT Vu 

$ofROMt-fi, 1/4 #ilU=, * 4 :, *H*tL0)7t> 

1 • T — ii 0, ROMT £t. 

H^ROMcOT J I S 3 — 

b*«9M$£^L£-f. iA, • To I S 

3 — b*'^iJ|^7 * > 1 cot'— 9 Sr?| fs tR L TV'£1"<0-e##(c L T < A'? 
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• 1 /4MX$ 


b *y h 

15.0 


b "/ h 

15.0 


14.0 


14.0 


13.0 


13.0 


12.0 


12 . 0 


11.0 


11.1 


10.J I S *?3- K*)#7 b-y h 

9. J I S 8t¥=» — K*>#5 6 b / b 

8.J I S 81^3— K<7)^ 5 b -y b 

7.J I S8!^3- K;<9#4 b-y b 

6.J I Sl4^-F^i3 b y b 

5.J I S8J?3—K^>#5 2 b-y b 

4.J I S K*)#l b y b 

3.J I S ^ 0 b y b 


2 

1 


••• 8 7 — V<nT—7 


0 


10.0 

9.J I Sl?3 - K<7)#5 7 b-y b 

8.J I Sl?3- K*>#6 b-y b 

7.J I S $1^3-K<7)fj|5 b-y b 

6.J I S 8I^=»- K*)#4 b-y b 

5 .J I S8t¥a-K^#3 b-y b 

4.J I SI^3- K*>#2 b-y b 

3.J I S?I^3-K^)W1 b y b 

2.J I Si?3 - b-y b 


1 

0 


••• 4 7— K<7)f"— 9 £jIIK 






t' "/ V 

15.0 

14.0 

13.J I SI?3-K«f-6f 7l 

12.J I S 3- KCO# 5 t* -y h 

11 . J I KsOtSlOt y h 

10.J I S **3-K<7)^ 9 t' -y h 

9.J 1SI^3- t'-y h 

8 . J I 3— K<7>® 4 t' y h 

7.J I Si«^3- 3 t' y h 

6.J I SI?3-K«i2 t' y h 

5.J I SiH^3-K cr>Wi 1 t'-y h 

4.J I Sig<?3-K*>*0 t'v h 

■ 3' 


2 

1 


V<7)7'— 


0 


t* ‘y h 

15.J I S)1^3— KW§f 5 6 t'-y h 

14.J I Sl?3- K«7)IS5 t'-y h 

13.J I SiiS^3-K<7)tR12t-y h 

12.J I S)iT?3 — K^iSllt'-y h 

11.J I Sig^n— KcO^lOt'-y h 

10.J I Sil?3- K<7>$9 t'-y h 

9.J I S)1^3- Y<n%,9, t'-y h 

8.J I S ii=? 3 - Y<7)% 4 t'-y h 

7 . J I S 3- K<7)^3 t' -y 1 

6.J I Sil^3- KcoS5 2 t'-y h 

5.J I S)S?3-K«®il t'-y 1 

4.J I SI?3-NI0 t'-y h 


3 

2 

1 


■ ■■16 r 7- Y<7>f'—?&M1R 


0 
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EAH — EBH : ItR0M(7)I^!U UfftS. 

E A H~EB H 
OUTPUT 

R O L SrfiWt 5. 

PC -8 8 0 11 : ROM — p (PC —8 8 0 1 —0 1 ) 

(1^7 * > p i 1 -. 

1 ) P E 8 H#ft|;T Yvx<r >p L 1 1\ 

PB**°— P E 9 H #i41c7 P'P XCO_hf 3 y <4 p L &t. 

2) E A H gritilzfil Zttitllilr. 

3 ) A^pj p E 8 H ^7* > p • 7 ■’’— ^ T P It L ^ "f - 

A^J T°— PE 9H b 7 * > p • -f— ? <7)_hf5y<-f l- £• x^J L £1". 

4) E B H #Ptkicf5Jb^»c7)T*— £ (r— £ £tb;PjL£1". 

5) W±$r'E'^4‘illk < 9iIL£1\ 

i iz, E AH#Pt!l'^'f5lP 3 ^<7)f"— ? Zlhtl-f&^-lz JroTiit^ROM^ 
PtftL, r'—^^rlfXjA/vX'tilc, <>; L AE 

b H #M-vf 5 j *> <r> f"— £ $■ pu t! L i t. 
wpi hCOlhtllt, liilvf 0 , tb^Jr'— 9 

£ -tBA. 



m itt 
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1000 ; 

1010 ' access kanji rom and display font 
1020 ' 

1030 DEFSNG A-Z 
1040 ' 

1050 DIM BIT(15) 

1060 FOR 1=0 TO 15 
1070 BIT(I)=2 A I 
1080 NEXT 
1090 ' 

1100 UIDTH 40,25:CONSOLE 0,25 
1110 ' 

1120 *L00P 

1130 PRINT CHR$(12); 

1140 INPUT ‘kanji jis code ‘;JISC0DE$:IF JISC0DE$=‘end’ THEN END 
1150 JISC0DE=VAL(*&h‘+JISC0DE$) 

1160 IF &H0<=JISCODE AND JISC0DE<= &HFF THEN GOSUB *HALF :G0T0 #LABEL 

1170 IF &H100<=JISC0DE AND JISC0DE<= &H1FF THEN GOSUB ^QUARTER :G0T0 *LABEL 

1180 IF &H2120<=JISC0DE AND JISC0DE<=&H277F THEN GOSUB *HIKANJI :G0T0 #LABEL 

1190 IF &H3020<=JISC0DE AND JISC0DE<=&H4F5F THEN GOSUB *YESKANJI:G0T0 *LABEL 

1200 GOTO *LOOP 
1210 ' 

1220 *LABEL 

1230 IF INKEY$= THEN 1230 
1240 GOTO #L00P 
1250 ' 

1260 ' subroutine for half font 
1270 ' 

1280 *HALF 

1290 ROMADDR = JISCODE * BIT(3) 

1300 ' 

1310 LOCATE 0,1 SPRINT ‘kanji rom addr : *;HEX$(ROMADDR) 

1320 HI=R0MADDR¥&H100 
1330 L0=R0MADDR MOD &H100 
1340 LOCATE 0,3 
1350 ' 

1360 FOR Y=0 TO 7 
1370 OUT &HE8,LO+Y 

1380 OUT &HE9,HI 

1390 OUT &HEA,&HFF 

1400 ' 

1410 PRINT RIGHT$(‘000‘+HEX$(R0MADDR+Y),4)j‘: m ; 

1420 I = INP< &HE9) 

1430 FOR X=7 TO 0 STEP -1 

1440 IF I AND BIT(X) THEN PRINT ELSE PRINT ; 

1450 NEXT 

1460 PRINT 

1470 ' 

1480 PRINT ‘ 

1490 I=INP(&HE8) 

1500 FOR X=7 TO 0 STEP -1 

1510 IF I AND BIT(X) THEN PRINT ELSE PRINT ‘‘j 

1520 NEXT 

1530 PRINT 

1540 ' 

1550 OUT &HEB,&HFF 

1560 NEXT Y 
1570 RETURN 
1580 ' 

1590 ' subroutine for quarter font 
1600 ' 

1610 ^QUARTER 

1620 ROMADDR = &H800 + (JISCODE AND &HFF) * BIT<2) 

1630 ' 

1640 LOCATE 0,1 SPRINT ‘kanji rom addr • ;HEX$(ROMADDR) 

1650 HI=R0MADDR¥&H100 
1660 LO=ROMADDR MOD &H100 
1670 LOCATE 0,3 
1680 ' 

1690 FOR Y=0 TO 3 
1700 OUT &HE8,LO+Y 

1710 OUT &HE9,HI 
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1720 OUT &HEA.&HFF 

1730 ' 

1740 PRINT RIGHT$(’ 000 *+HEX$(ROMADDR+Y),4);‘ 

1750 I=INP(&HE9) 

1760 FOR X=7 TO 0 STEP -1 

1770 IF I AND BIT(X) THEN PRINT ELSE PRINT 

1780 NEXT 

1790 PRINT 

1800 ' 

1810 PRINT ‘ *; 

1820 I=INP( &HE8 ) 

1830 FOR X=7 TO 0 STEP -1 

1840 IF I AND BIT(X) THEN PRINT ***; ELSE PRINT *•* 

1850 NEXT 

1860 PRINT 

1870 ' 

1880 OUT &HEB,&HFF 

1890 NEXT Y 
1900 RETURN 

1910 ; 

1920 ' subroutine for hi-kanji font 
1930 ' 

1940 #HIKANJI 

1950 KU = (JISCODE AND &H700) ¥ &H100 
1960 TEN = JISCODE AND &H7F 
1970 ROMADDR = 0 

1980 ROMADDR = ROMADDR + (TEN ¥ BIT<5)) a BIT(12) 

1990 ROMADDR = ROMADDR + (KU a BIT(9)) 

2000 ROMADDR = ROMADDR + (TEN MOD BIT(5)) a BIT(4) 

2010 GOTO aDISPLAY 
2020 ; 

2030 ' subroutine for kanji font 
2040 ' 

2050 aYESKANJI 

2060 KU = (JISCODE AND &H1F00) ¥ &H100 

2070 TEN = JISCODE AND &H7F 

2080 ROMADDR = (TEN ¥ BIT(5)) a BIT(14) 

2090 ROMADDR = ROMADDR + (KU a BIT(9)) 

2100 ROMADDR = ROMADDR + (TEN MOD BIT(5)) a BIT(4) 

2110 ' 

2120 aDISPLAY 

2130 LOCATE 0,1:PRINT ’kanji rom addr : HEX$(ROMADDR) 

2140 HI=INT(R0MADDR/&H100) 

2150 LO=ROMADDR-INT(R0MADDR/&H100)a&H100 
2160 ' 

2170 LOCATE 0,3 
2180 FOR Y=0 TO 15 
2190 OUT &HE8,L0+Y 

2200 OUT &HE9.HI 

2210 OUT &HEA.&HFF 

2220 ' 

2230 PRINT RIGHT$(*000’+HEX$(ROMADDR+Y),4):’: 

2240 I=INP(&HE9) 

2250 FOR X=7 TO 0 STEP -1 

2260 IF I AND BIT(X) THEN PRINT ’a*; ELSE PRINT ’- *; 

2270 NEXT 

2280 ' 

2290 I=INP(&HE8) 

2300 FOR X=7 TO 0 STEP -1 

2310 IF I AND BIT(X) THEN PRINT ’a*; ELSE PRINT 

2320 NEXT 

2330 PRINT 

2340 ' 

2350 OUT &HEB.&HFF 

2360 NEXT Y 
2370 RETURN 
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kanji jis code ? 217a 
kan ji rom addr : 33A0 

33A0: . 

33A1: .*. 

33A2: .*. 

33A3: .***. 

33A4: .***. 

33A5 s .*****. 

33A6: *************** 

33A7: •••***********•• 
33A8: •••***********•• 

33A9: .******** • • • 

33AA: •••***********•• 
33AB: ••••*#**•****••• 
33AC: ••* *#**•••****•• 

33AD: •■•**.**• • 

33AE: ••*.*• 

33AF: . 


kanji jis code ? 21 
kanji rom addr : 108 

0108: • 

0109: • 

010A: • 

010B: • 

010C: • 

010D: • 

010E: • 

010F: • 


kanji jis code ? 101 
kanji rom addr : 804 

0804: •***•••■ 

• *. 

0805: •***•■•• 

•••**•*• 

0806: •****•*• 

••••***■ 

0807: -*•*• 

• • • • * • * • 


•*••• 
• *••• 
. *. . . 

•*••• 
•*••• 
•*••• 
•*••• 
• * • • • 
• * • • • 
• *• • • 


• **• • 
• **• • 


kanji jis code ? 3021 
kanji rom addr : 6010 

6010: . 

6011: **************** 

6012: .*•••*. 

6013: .*•••*. 

6014: .*•••*. 

6015: **************** 
6016: ■•*•••*•••*•••*• 
6017: ••*•••*•••*•■•*• 
6018: ••*•••*•••*•••*• 
6019: ••*•••*••■*•••*• 
601A: ••*•••*•••*•••*• 
60IB: **************** 

601C: .*•••*. 

601D: .*•••*. 

601E: .*••■*. 

601F: **************** 


kanji jis code ? 23 
kanji rom addr : 118 

0118: . 

0119: ••*••*•• 
••*••*•• 

011A: ■•*••**• 

••****•• 

011B: •**••*•• 
•■*••*•• 

011C: ••*••*•• 
••*••**• 

011D: ••***#•• 
•**••*•• 

011E: ••*••*•• 
••*••*•• 

011F: ••*•*• 


kanji jis code ? 11c 
kanji rom addr : 870 

0870: . 

••••*••• 

0871: . 

• ******• 

0872: . 

0873: . 


kanji jis code ? 4d25 
kanji rom addr : 5A50 

5A50: ••••*•******#*** 

5A51: -*-*. 

5A52: ••••*••********• 

5A53: •••*•••*.*• 

5A54: •••*•••********• 

5A55: ••*-*.** 

5A56: **************** 

5A57: •••*•*••*•*-* 

5A58: •••*••*•*••#*•*• 
5A59: •••*•*••*****••* 

5A5A: •••*-*. 

5A5B: •••*•••********• 

5A5C: •••*•***.*•• 

5A5D: •••*-*•••*••• 

5A5E: •••* .***- 

5A5F: •••*•****•••**** 


kanji jis code ? 91 
kanji rom addr : 488 

0488: . 


0489: •••* - 

• ••*•**• 
048A: •****••• 

048B: •••* - 

• ••***• • 
048C: ••**■•«• 
•*•*•*•* 
048D: •* 

• *•*• • • * 
048E: ••*•••*• 

.* • • 

048F: . 


kanji jis code ? lbl 
kanji rom addr : AC4 

0AC4: 

0AC5: 

0AC6: 

0AC7: 


****** 

.* 

.* 

••*•*• 

••**•• 
••*••• 
•*•••• 
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FCH : P C — 8 0 3 1 £'b y— 9 fcXtJtZ 


FCH 
INPUT 
PC - 8 0 3 1 

P C — 8 8 0 1 Xit, 'f > f ') y x > |- • 9 4 '/‘co l =. • 7 d y t" 1 
r‘- (PC-8 0 3 1 £ tzli PC-803 1-2 W) icftt-i.'' 
> K x i ^ 7 £fir £ 7 fztbiz U P D 8 2 5 5 K 0 Tlfffl I Tii '), F A 
(PA)J, r'-fcoxtltf- F t LTflJffl Li-t. 

;<7), <+°— I' A (PA) T<7)j6''FCH#it<7)A*3f— 

F T"i". 

WTU, 1 '<4 bcor-?£%:mt&-m]tc^m, £>i:t>'N88-BAS I C 



1 ft Bt 


J; -f-> c7)pij^7r; l i 1". 

1 ) RFDJ-fe'y ) t. 

2 ) DA V* f -b-y F 

3 ) T—?£-§:1b Lit. 

4) DACJ-fey h Irr-fZZiBlfzmZTnli-t. 

5 ) DAVA'iJ-ty FSftSj X'Wlb i t. 

6) D A C £•') -fey F LTH-7 L 41". 







100 

' 





110 

120 

receive a 

data from pc-8031 

subroutine 

130 

140 

150 

PA=&HFC:PB= 

OUT CU.&HB 

PA+1:PC=PA+2:CU=PA+3 

pc=xxlxxxxx 

160 

170 

180 

IF (INP(PC) 
OUT CLI.&HA 
A=INP(PA) 

AND &H1)=0 THEN 

160 

pc=xxxxxxxl 

pc=xx0xxxxx 

190 

OUT CU 

, &HD 



pc=xlxxxxxx 

200 

IF INP(PC) 

AND &H1 THEN 200 


pc=xxxxxxx0 

210 

220 

230 

OUT CU.&HC 
RETURN 



pc=x0xxxxxx 


set rfd (bit5) 

wait for dav (bitO) set 

reset rfd (bit5) 

receive data from pa 

set dac (bit6) 

wait for dav (bitO) reset 

reset dac (bit6) 


210 


















FDH : PC- 8 0 3 1 XT*. 

FDH 

OUTPUT 

PC- 8 0 3 1 tihtz. 

■i >T 'J x x > h • 9 'i 7“ CO ; — • 7 D -y t° • T'-f X ^ ■ X-— y h 
l:Wt5^'> Kxx'f 7 F>tzth>\z, «P D 8 2 5 5 <r> iff.— F B( PB) ^7-7*& 
F^FDHfMT'l-. 

WTC. 1 '<i hc03-x> Kt>i tlf'— 9 £ j^fi1~ h ^i-a-co—&•^US t N 

88 BAS I C\Z z. Z,mt*t~7)V- + ><F>m*7nt . 

1) 3v>Koi|^«AATNI:-fe7 H'ClfS’Ut, 

2) RFD^'-fe-y F £X-fth£-r. 

3) &<7)Mi ll:fflitATN^']-fe7 FlTi>#it. 

4) 3-?> K J tzltr'— ? £j§FI L ii\ 

5 ) DA V£-fe-y F I". 

6) DACi ! -b7 1-SfLl.imJt. 

7 ) D A V £ U -t y Ft i 1\ 

8) DACi !l ) -t-y F 



* IK 


If >7^ 


ioo ; 

110 ' send a command to pc-8031 subtroutine 

120 ' 

130 PA=&HFC:PB=PA+1:PC=PA+2:CU=PA+3 
140 ' 

150 OUT CU.&HF ' pc=lxxxxxxx 

160 ' 

170 ” send a data to pc-8031 subroutine 
180 ' 

190 PA=&HFCJ PB=PA+1:PC=PA+2:CU=PA+3 

200 ' 

210 IF (INP(PC) AND &H2)=0 THEN 210 
220 OUT CU.8.HE 
230 OUT PB,A 
240 OUT CU.&H9 

250 IF (INP(PC) AND &H4)=0 THEN 250 
260 OUT CU,8 

270 IF INP(PC) AND &H4 THEN 270 
280 RETURN 
290 ' 


pc=xxxxxxlx 

pc=0xxxxxxx 

pc-xxxlxxxx 
pc=xxxxxlxx 
pc=xxx0xxxx 
pc=xxxxx0xx 


set atn (bit7) 


wait for rfd (bitl) set 

reset atn (bit7) 

send command or data to pb 

set dav (bit4) 

wait for dac (bit2) set 

reset dav (bit4) 

wait for dac (bit2) reset 
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FEH:PC-803 1 


— p 


i / o 


m m 


FEH 
INPUT 
P C - 8 0 3 1 


W^bAtlt 2>. 


aft | PC-880 lie (±, -f >r'l yx> I • ? T i — • 7 n y t“ ■ 


P (PC- 8 0 3 1 itli PC-8031 — 2 W) ^ 

> ^7i-i". -f > ^7i-Xlcli/iP D 8 2 5 5 £f£fflL 
TH T*-r X? • x---y PficO^P D 8 2 5 5 t 3^'> pyx^f 
fjfc$iXTV'£i\ 


PC- 8 8 0 1 CflltSixfc^P D 8 2 5 5 «iK- l-A (PA) fr'PC-80 
3 1 b'ir,<r>T— 9 Atllz, .If— P B ( P B ) P C - 8 0 3 1 ^cof’— 9 

-t°—PC (PC) < 7 )±i &4 t‘-y P t'-y P 

LJ i~. oJO, // P D 8 2 5 5 £ * — p" 0 T'ttffl L 
A*;tf- P FE H#Plk(±, .If— p C (P C ) 

Xti-thtithtF)#— P vt. 

UTtz, At} L tz& t' ■•/ pco^^^Lil - . 

i 2 h - 7 P (DAC) .DATA ACCEPTED 

S 1 t' 7 P (RFD) .READY FOR DATA 

SOt'y P (DAY) .DATA VALID 
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FFH:PC-8031 


FFH 

OUTPUT 

pc- 8 0 3 i 

-1 > T ')•>' 3 . > b • 9 -i ~f<r> ~ =. ■ 7 o 7 b • T 4 X 9 • zlx. "/ F 
F/i-f 9<7)Tzish\z, (,PD 8 2 5 5 cotf- F C (PC) ±{V4 b 

JUTKtf- F C (PC) ±{£4 b-y F<0#b-y 

#5 7 b -y F ( A T N ) .AT T E N T I 0 N 

% 6 b -y F (DAC) .DATA ACCEPTED 

m 5 b -y F (RFD) .READY FOR DATA 

I 4 f 7 F (DAV) .DATA VALID 

L fr L, FFH ill: {BTj L T*— 9tf%<r>i & tf— F C (PC) (c-fe-y F $ 
itSWCIi* 1 ) („PD- 8 2 5 5n(ii).»;, SEHHeFFHfcflUetb 

m 7 b -y F.tB* .-K— F F F H #i(ki±F C (PC) w-tyFtm 

let, „PD 8 2 5 5 (Ob- F'&5e Sr 
t. b*-y F Sri lit- F'RfcSr*# 

L, 0 L (± tf-F C (P C) lc **-*-.& b-y F X> 

b-yF, >Jb-y F^IiKLi-f. hbMZjuP D 8 2 5 5<OT 
-^TxT X(iFFH#it!l(c9 1 H Sr Ititlt&^X'fTti V'i t. 

% 3 b V F ~W> 1 b -y F.C<0 3 b -y FCioT, ;K— F C (PC) 

co 8 b -y FotfOi'Oby F lefcfL T\ b-y F, U-fe yFSrff 
4" ? A 1 Sr FbSe L i i". 

g>;o b-y F.$3 b-y F ~S8 1 b-y F T-*£5eLA:b-y F^-fe-y FI’S 

U -t -y F 1~&S b -y F T'i’. 
tzt£l£, — F C CO ® 7 b -y F (PC?)£ 1 l:-t-y F LTATN (ATTE 
NT ION) SrttBLfcltillf, F F H#MUcO F H Zlh1lttU£& V'*Ki‘ 0 
it. 
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SYSTEM WORKING AREA 







E 6 0 0 H 


E 6 0 EH 

SLfStffl. Sl&=F (#IcOiSLtfc*X + Y) VFlzfflthli. (0 OH-ABH). 

E 6 0 FH 

su&ffl. t &2 tv h •c-3a*a<7)Y^iSiR. 

E 6 1 0 H 

SL&ffl. Tfc3 t' ••/ 

E 6 1 1 H 

8 mm. 

E 6 3 1 H 


E 6 3 5 H 

USRM&, USRO—USR 9 7>a—h'l/X, 

E 6 4 9 H 

17 - • a-K (ERR). 

E 6 4 AH 


E 6 4 BH 

X') > 9 "/ Y IsaM. 

E 6 4 CH 

&t>m-77 /. 0 0 HtCRTH 1 HT-VJ >9£MtR.. 

E 6 4 DH 

7*U 

E 6 4 EH 

V) > WIDTH LPRINT X^ig. L fcflfc. 

E 6 4 FH 

CRTx^'l-^Ofrlt. WIDTH-dtjeUfcffi. 

E 6 5 0 H 

CRTX?')->«ii. 

E 6 5 1 H 


E 6 5 2 H 

CRTa)*777\ 

E 6 5 3 H 

H&M§h7o /yino- K, -t-YfflV?/. 

E 6 5 4 H 

TcOiJfi. 

E 6 5 6 H 

TVWh • ^-KS#(4FFFFH. 

E 6 5 8 H 

f3fXf«h'/Y-T)>X. 

E 6 5 AH 

VO” ifcli “OV" <7)tztbX>^7- ■ 9 •y-t— ix • ;1M >7. 

E 6 5 CH 

ESC! X'&tltl I D a — K (NEC00000001 c r l f ). 

E 6 6 9 H 

• r—T/v. 

E 6 8 4 H 


E 6 9 CH 

(1 EH, 10H). 

E 6 9 EH 

7X) • KtV/I D. 

E 6 9 FH 

7—~ VW • t— )' ■ 77 X. 

E 6 A 0 H 

9-l+)v ■ x- BAS I Ccnmtiumxtfim. 

E 6 A 1 H 

7—5 VP- X— KB#ICBAS I C XXts LXV a-7 7 7 • a — Y. 

E 6 A 2 H 

9 — = +>v ■ X— Kcoru >9-4 *— 7Vv -7 77, 

E 6 A 3 H 

1 1 2 AH #*&*>£> Igffl. 

E 6 A 4 H 

CMT^'yf-f-f • 77 7". 

E 6 A 5 H 

i 

/// 

H* 

V 

1 
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E 6 A 6 H 
E 6 A 7 H 
E 6 A 8 H 
E 6 A 9 H 
E 6 A AH 
E 6 ABH 
E 6 ADH 
E 6 A E H 
E 6 A F H 
E 6 B 0 H 
E 6 B 1 H 
E 6 B 2 H 
E 6 B 3 H 
E 6 B 4 H 
E 6 B 5 H 
E 6 B 6 H 
E 6 B 7 H 
E 6 B 8 H 
E 6 B 9 H 
E 6 B AH 
E 6 BBH 
E 6 BDH 
E 6 B F H 
E 6 C 0 H 
E 6 C 1 H 
E 6 C 2 H 
E 6 C 3 H 
E 6 C 4 H 
E 6 C 6 H 
E 6 C 7 H 
E 6 C 8 H 
E 6 C 9 H 
E 6 CAH 
E 6 CBH 


77~7 ^ b&. 0T'2 0 0 ( lt4 0 0 KvK 

CMT m^77/. 

h° U * K -c#56+ a 
h 

b • ( 0 6 H). 

7 4 b • ( 3 6 H). 

(1-25). 

(1-25). 

C0NS0LEt«L/:X7o-;«7^f> (1-25). 
C0NS0LEt^L^X7n-^lffl (1-25). 
b U h' jl— b • 3- K. 

• ^7^ • 3 — K. 

0 0 H1j1^c 7)^CRT{C3> b n-;i^ • r?- 

0 0 HW^7t>;j/ 3 > • ^-^Srfrfc-}. 

^7-/6177/. FFHt^7-‘^-F, 0 0 H K. 

COP Yfflx7 b • K. 

ED I TT'ROLL-UPO/:^^Tff. 

ED I TtROLL-DOWNO^^Ofirff. 

USARTX7- 
tB*J*°-b 3 OH 

tUTltf- b 4 0 H#Jfe^tb*r-^. 
ft**’- b 3 1 H#ltH^<7)m7jT-^. 

HjTj jK— b E 4 H U >*7r b • w-c;u). 

VR AMcdx^- b • T Fl/X. 

RLfe jK- K<50A*7^ 

TIME $iC £64 >^77 ( F^77/ (FFHtm 

*«jb. 

7 4 > • '<"/7 T <F)Jr—'<—7 o — • 77 /. 

3 > h o— ;u • =7— KAflffl. 

4 > ^ 7/ b • '<*y V T <ntz.#)<r)T — ~T)W b *y 7° • T Kl^X. 
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E 6 CDH 
E 6 C E H 
E 6 CFH 
E 6 D 0 H 
E 6 E 8 H 
E 6 E 9 H 
E 6 EBH 
E 6 ECH 
E 6 E DH 
E 6 EEH 
E6EFH 
E 6 F 1 H 
E 6 F 2 H 
E 7 0 2 H 
E 7 1 2 H 
E 7 2 2 H 
E 7 3 2 H 
E 7 4 2 H 
E 7 5 2 H 
E 7 6 2 H 
E 7 7 2 H 
E 7 8 2 H 
E 7 9 2 H 
E 7 A 2 H 
E 7 B 2 H 
E 7 C 2 H 
E 7 D 2 H 
E 7 E 2 H 
E 7 E 5 H 
E 7 E 8 H 
E 7 E AH 
E 8 2 6 H 
E 8 4 0 H 
E 8 7 7 H 


Yt'hnK'hT—f 1 k 

USART7?/. CMT^:liS 10. 
C0PYffl77>^. 

LPT : fflT —7°> • 77 / (FFHtt-7>). 


COM 1 ifflWIDTH. 

U S A R T 7 7 /. 

T >/77^F • T-7VM7)|t 

/f>^77 P F £«fc * GO S UB*)r—*/;u • T Kwx (EECBH). 
T > ^77 p h *77/. 


7 7 y 9 y 3 y 


~fv 9*7 )V • 7 7 y 9 y 3 y 
7 s u y*y~?~T)V • 7 7 > ? x 3 > 


y 7 y 9 y 3 y 


7 °o 9 *y-?y , )v • y 7 y 9's 3 y 



y 7 y 9 is 3 y 
y 7 y 9 y 3 y 


7 °n 9"y^y t )^ • y 7 y 9 y s y 
7°o 9*7"? ~T)V • 7 7 y 9 y 3 y 
* 7 °p 9"y^y*^ • 7 7 y 9 y 3 y 


• 

. *- 

. 

. 

. 

. 

. 

• 

• 


( f • 1 ) CD'*"/ 7 7 . 

( f • 2 ) ^<777. 

( f • 3 ) 0><777. 

( f • 4 ) ^<7 7 7. 

( f • 5 ) ^<777. 

(f • 6 ) <r>'<«/7 7. 

( f . 7 ) 7)/< 7 7 t. 

( f • 8 ) ^<777. 

( f • 9 ) ^<777. 

( f • 1 0 ) 0»<''/7 7 


9— l • •£— KB#<7)7 7 - ^ — ( f • 6 ) <7)'<‘y 7 7 . 

? — -t — K^c7)77>7i/3 > • A*— ( f • 7) <T)'<"j7 7. 

9 — ^ • -t— KB#<7)7 7 > ? ^ 3 > • ^ — ( f • 8 ) <?V<7 77 . 

? — ^ Kb#<7 )7 7 > s > • (£ • 9 ) ^< 777 . 

* — ^ • ^e— KB#<?)7 7 > ^ x a > • (f • 1 0 ) <f>'<7 7 7 


LINEffl<7)y»7* r-r;H . 


LINE m<7)y*yr • r —7*;u 2 . 

7-? • iiJT^^'fcRAMWiR (E 5 FFH). 


-f >^77'l'M;u-f>. 
**4^777. 
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E 8 7 9 H 
E 9 B 9 H 
E AB 9 H 
EABBH 
E ABCH 
EABDH 
E ABEH 
EABFH 
E AC 0 H 
E AC 2 H 
E AC 3 H 
E A C 4 H 
EACCH 
EACEH 
E AD 0 H 
FA F 1 H 
FAF 3 H 
E A F 5 H 
E AF 7 H 
E A F 9 H 
E AFBH 
EAFCH 
EAFDH 
EAFFH 
E B 0 0 H 
E B 0 1 H 
E B 0 3 H 
E B 0 5 H 
EB 0 7 H 
EB 0 9 H 
E B 0 B H 
E B 0 DH 
E B 0 FH 
EB 1 0 H 


4 >7—774 lO • 3- V (tlSalg) r. 

4 >7-y f- • 7 2 5 6'MK 

CHA INffl. 

S2?'Jl:a v 7 7. 

(0, 2, 4i£l±8). 

‘FPiflxi — K, 9 X h • 77 71 . 

K, ') x P • 77 71. 

R ST 10 HFS74 >7. 

r s t io h mr— 7 . 

RST 10H«ff-7«I (0, 2, 4 itzltS). 

RST 10Hlf-7«t. 

Xb ’) >7 - J^i) T<7)± ffi (7.7 -y 7 7>TW. 

Zij n 7 7 7 ■ 74 > 7. 

-y 3 b ') >7 • 74 X7 ') 77 1 1 &. 

XM) >7- xiJTnTi. 
ft&m.n — 7>, >7— 7 . x ij 7_ 

7^—7 • vv 7 is s >m r 7—7 -i'17, 

FORfV-7 • x i) T. 

DATAffli7-«fift. 

7 4 7. 0 -e#il, 6 4TFOR, 80 T'Se^'J. 

READ, I NPUTffl77/. 

^3&T Kux. 

ff7Fl/X • 77/, OOHTfift, 0 DHT'T 
AUTO^fftXxT". 

AUTOff#^-. 

AUTOJf^-. 

Mff T Ki/X. 

Stff X ? y ? . 

(ERL). 

X7-M7 Kw X. 

3-7—• b 7 ■■/7 %<r)~r Y X (ON ERROR GOTOftlS), 
X7-03&. 

V—7 ■ x. 0 7. 
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EB12H ~Tv — 9 

EB14H CONT & 3 fcabeO + BrT h'PX (0 "t'C 0 N T^nlH^). 

E B 1 6 H 7 t 4 )U ■ '<■•/ 7 7 X>_hPI ( x^-OP • x U TOTPS). 

EB18H tA-X p X)x> p* • 7 KPX. 

E B 1 A H 7-<7P5e3l?87 7 7. 

E B 1 B H 

E B 1 D H #&Sg^fii£X>J;P.B (Sa5«&II«X>TPfi). 

EB 1 FH gfi9]^liffiitO±PS (PA I NTfflV-7 • x 9 7OTPJ0. 

EB2 1H a«lre.XjAA,-t*V'&DATAW7 P'PX. 

EB2 3H HjESSrlTfr A~Z?)2 6^P, 

EB3DH FNJB5l*fcT-7VM7);K7 > 7. 

EB3FH FNR35IS!ct—TVktV'M p $c. 

EB4 1H FNfflSIiScr-TVu (S, £«r>, MTKt-X). 

EBA5H FNffl3liScT-7VPX>tf'f >?. 

EBA7H FNffl3lifcr--/;KO'<'f P2&. 

EBA9H FN)a§ll!cr-7*;p (S, £#r>, fear P'px). 

ECO DH 5117 7/, 

ECO EH £SSciZ:li3l&X>7-f-»77 Kux. 

EC10H giSt£/:i;t3lfkX>-7--?-»77 P*px. 

EC12H x • 3 p 7 ■> a 7— 9 • x 0 T. 

EC 1 3 H FNXtP'C/P. 

EC 1 5 H I NPUTi. 

EC 1 6 H NEXTfflT P'PX. 

EC18H NEXTS77/. 

E C 1 9 H FORfflf-/, 

EC1DH FORffllftt, 

EC1FH OPTION B A S ETtaSLfcRt ( 0 itzlt 1 ). 

EC20H OPTION BASE*ft77/ (0T**ff, 1 itli2 T*ff«). 
EC2 1H L l STthtJt%<r>£&ftt)-7? 7. 

EC2 2H I NPUTfflX>iEBgp¥*^7 7?‘. 

EC2 3H x P i) v7 • xiJ7X>5I®ffl. 

E C 2 5 H 

EC27H SAVEBWT'ot / h '77/. 

EC2 8H L 0 ADBW^'X ■ 77— F • 77 X'. 
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EC2 9H OVXftcr>t%&, LIST, L L I ST, POKE, M 0 N 7p' nftg. 


EC2 AH 

CHA I NSMERGE777. 

E C 2 B H 

CHA I NSDELETE77/. 

E C 2 CH 

CHA I NfflDELETE 

E C 2 EH 

CHA I NBDELETEftllTft. 

E C 3 0 H 

CHAIN177/. 

E C 3 1 H 

CHA I 

EC 3 3 H 

SWAPSS«iljB/<. y 7T. 

E C 3 B H 

TRON^It77 / (0 0 HtTROFF, AFHtTRON). 

EC 3 CH 

7D-fp7.7^AF-7 (FACC) <7 )|!S?Mt. 

E C 3 DH 

To— r-f >?'• 9 (FACC). 

E C 4 5 H 

7n-f<>/'7AaAF-7 (FACC) 

EC46H 

t—'<— 7o — (OV) i^7 7/. 

E C 4 7 H 

*-'<-ya- (OV) mm 7 7 

E C 4 8 H 

1 

E C 4 9 H 

+ T - • 70 — 7 4 > ?' • TJfaAF- 

EC4AH 

■f 7* • 7 0 — T 4 >7* • TAiAF-?. 

EC 5 2 H 

Kcftr'— ? A* A. if- 7 7 ? 9 • 0 — 77 . 

E C 6 DH 


E C 7 5 H 


EC 7 DH 

K 7 4 rise. 

EC7EH 

fb*;7 7 4 /ufc. 

EC 7 FH 

7 7 4 A- • 7 K W X • T — 7)UC07 K U X. 

E C 8 1 H 

h '7 -f 7 * • 7 Kwx • T — 7)U07 Kux. 

E C 8 3 H 

7 T'f a. #0 COT'-?® GOT Kux (V A RPTRT*#-i>fi+ 9 ). 

E C 8 5 H 

K74 - 7 • 

E C 8 6 H 

K?-f 7" • 7 KV'X. 


EC88H 7tT ^ • T Kl^X. 

EC8AH 7t^^T Kl/X. 

EC8CH 7tT^£77>^. 

EC8DH 77^^-feX;, 

E C 8 E H L 0 A D T‘ R T 7° x 3 > • 7 7 /, 
EC 8 FH 7 7 'f ;u£'<«y 7 7 1. 

EC88H 77^ 7 7 2 . 
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ECA1H 

ECA3H 


E C A 4 H 

SAVEB77/, 

ECA 5 H 

D S K FflWftA: 1- 9 7 (frffi&A:') X> h 9 7 1 ). 

ECA 6 H 

DSKFffiWl h 9-y ?&£ 0 X>-fe 9 9I&. 

EC A 7 H 

DSKFfflnfr®, i ®79 / (Otfrffi, 1 tiB). 

ECA 8 H 

D S K Ffflso 1 H9-y9*A: , )<7)9 9X^|S[. 

ECA 9 H 

D S K F <75 rK 'J •) X>?9XXtt 

EC AAH 

D S K F««f< !✓ 9 h V • h 9 7 7#-f. 

EC ABH 

DSKFfflcoi 7=7X9hTz' l )<n->c.9 9 %l. 

ECACH 

D S K FfflXiF ATWSte-b7i’#f. 

ECADH 

DSKFffiWFAT«ft7-k??tt. 

ECAEH 

D S K F m CO F A T 7) -fe 9 X &. 

ECAFH 

DS KFlWf-( 

ECB 0 H 

jfc'lEffl. 

E CB 1 H 

B S A V EfflWftTT KVX. 

ECB 3 H 


ECB 4 H 

T*-f X? • 7 9-feXB#X)i9— • 

ECB 5 H 


ECB 6 H 

■7 -( X7Wi7- • 7 9 /. 

ECB 7 H 


ECBBH 

y 7 > 7 • r—~T>v. 

EECBH 

0 N 4 97 h G 0 SUBffl«f-7k 

EFO AH 

Hf7R 0 M 3—;m#7)7 A- i a w — X Jfijiffl. 

EFO BH 

77R OM => —->*x 9 HLI8B. 

EFO DH 

COPYffl77/. 

EF 0 EH 

F E 6 

E F 0 FH 

tiJtltf— fF4H#tt (F 8 H#i&) ^X>iU*T'-X. 

EF 1 0 H 

T^X9ffl7^A-79F • 

EF 1 1 H 

T-t X 9ffl79 7. 

E F 1 2 H 

7 Ax 1- • <7 -f > KfflX>DM AIciHT Kwx. 


EF14H T4 X ?Jfl<7>#l$(ffl. 

EF15H 5 — • 707 7 9\ 

EF16H DMA77/. 
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E F 1 7 H 
E F 1 8 H 
EF 1 9 H 
E F 1 AH 
EF1 BH 
E F 1 CH 
EF 1 EH 
E F 2 0 H 
E F 2 1 H 
E F 2 2 H 
E F 2 3 H 
E F 2 4 H 
E F 2 5 H 
E F 2 6 H 
E F 2 7 H 
E F 2 8 H 
E F 2 9 H 
EF2 AH 
EF2 BH 
EF2 CH 
E F 2 DH 
E F 3 DH 
EF3 EH 
E F 3 FH 
E F 4 0 H 
E F 4 1 H 
E F 4 9 H 
EF4 AH 
EF4 BH 
EF4 DH 
EF4 EH 
EF4 FH 
E F 5 0 H 
E F 5 1 H 


FDCav> K. 

FDC K X 7 • 

FDC b 7 7 7. 

FDC^n, 

DM A T KWX. 

Ta x 6 o o ii# 9 . 

r'>r 

DMAoy hn — \? • F. 

FDCffl^v> K • h . 

F D C C7)xr— ? X. 

FDCffl >J h 7 >f • 

FDCcOU^Uh -Xf-n (STO). 

FDC<7) 1/7/1^ -Xf-n (ST1). 

FDCOUf;i/h -Xf-n ( S T 2 ). 

FDCOi/ ;u h • X t— $ X (C). 

FDC^Uf/H* -Xf-^X (H). 

FDC^uf;^ • x t — $ x (R). 

FDCX>w7;uh -xf-n (N). 

Kx'f 7 • xr-n, 

-z-x —•xf— 9 x. 

DMA 77 /, 

4 >?x7h • 

h - XT— ^X. 

7>f X?<7)-T—X> . jtfyf (2^M 
BL0AD^R^7y 3 > *77/ ( 0 0 H £ fzl± 5 2 H ). 

T'4 

K7^r-X7-;xc07Fl/X (;^tEF2DH, m&TE F 3 5H). 
v-y>*d-:-^7Fwx U-TF9H, ®iflT'F5H). 

FDa> h u-)v • T KUX (^tF8H, lft'F4H), 

FD=7> h • r Fl/X (;-t'F8H, lfT"F4H), 

f^F77^t^(;-T‘2 7H, Ift4CH). 

U-K • ($--Cl 4 H, a^T'2 6 H ). 
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E F 5 2 H 
E F 5 3 H 
E F 5 4 H 
E F 5 5 H 
E F 5 6 H 
EF 5 7 H 
E F 5 8 H 
EF 5 9 H 
EF5 AH 
EF5 BH 
E F 5 C H 
E F 5 DH 
EF 5 EH 
EF5FH 
E F 6 0 H 
E F 6 1 H 
E F 6 2 H 
E F 6 3 H 
E F 6 4 H 
E F 7 0 H 
E F 7 1 H 
E F 7 2 H 
EF 7 3 H 
E F 7 5 H 
E F 7 6 H 
E F 7 8 H 
EF 7 FH 
E F 8 0 H 
E F 8 1 H 
E F 8 2 H 
E F 8 3 H 
E F 8 4 H 
E F 8 5 H 
E F 8 6 H 


EOT U-TIOH, ffiifS-ClAH). 

3 H, m&X'S 6 H. 

FDCOXf-^X U-TFAH, jS#tF6H). 

FDC <r>?—9 U--CFBH, WtF7H), 

(;^TT0H, 

SPECIFYf-^ (;^t'3AH, @tBAH). 

S PE C I F Y T'— 9 ( $ ~T1 8 H, JMI-C4 2 H ). 
DMAC03v>K(^tA5H, I$tA6H). 
DMACWft>^*Th>X (^t60H, Wt6 2H), 
DMACOTK^X 0 H, Wt6 0H). 

h F 3 U-T0 1H, IfT'0 2H), 

Yy^-Tl D (0-3). 

mm. 

Y74 ~f * 

fi-c V* aDMA K 7 4 -/ft. 

K7>f r*. 

>r'J XX > h • *4 7 s X> K^>f7*fc. 

>f >T 'J > h • 7° (7) K74 7>'#ffiX>($0 0 H, Mi®<7)1$ 8 0 H. 

p7^(7TDt (OtlfDMA, lt;^DMA, 2 tit®, 3 T'Piffi). 

;u • ■*— -yf. 

9 — KP#x>£“M, 

^ • •£ — K0#(7)3 > h o— )V • =/— K^TFX'f 

9— l &)\> • KB#<7)X h ')>?"• x U TJIiKffl. 

h 3 0 

AT7*°- h 3 1 T-9. 

7>f h • 'on&mm. 

7 A h * 

y;Httffi 1 SL 

xr'4 

xf /f f^^-y/^7 7/. 

d-2 5). 
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E F 8 7 H 
E F 8 8 H 
E F 8 9 H 
EF8 AH 
E F 8 C H 
E F 8 D H 
EF8EH 
E F 8 F H 
E F 9 0 H 
E F 9 1 H 
E F 9 9 H 
EFB 3 H 
E FB 4 H 
E FB 5 H 
EFB 7 H 
E FB 9 H 
EFBAH 
EFBCH 
E FBE H 
E FC 0 H 
EFC2 H 
EFC4 H 
EFC6 H 
EFC8 H 
EFC9 H 
EFCAH 
EFCBH 
EFCDH 
EFD9 H 
EFF9 H 
EFFAH 
EFFBH 
EFFDH 
EFFEH 


a~8 o). 

CRTX?(WI D T H "CJh/e L fcftO. 

CRTx; y->*)tir» (W I DTHtHgLfct). 

MfflltzT h >J b*h • ii)TWT Kl/X. 

•JWLfeT h U tfa.- h • K. 

iMJfcMiWLfcT h y tJL-h •i'jrwtfi, 
iMtrteiMWLfcT h y hfi- h • xyrwAifT. 

A--V 7 9 9<F>-3— K. 

00H^^7r>;y3>^- - / —0 5Hc7)^^x7h. 

COPYffl/<77 7 . 

CRToy>;«# (o o hx>£ 
o o Hx>b £ y—^)v • -t— k, oiho^edi T^e— K. 

/vir^rX b >?. 

itiju-y-—f-Lfcr A-x h 

ED I Tffl77/. 

^X-§g£f£X>fr#-t. 

HELP (CTRL-A) 

HELP (CTRL-A) ZB*)# — 

ON T I ME $ffl(7)l 2 0 0 *7 > 9. 

ON T I ME $ffl^6 0ii^ r 7>^. 

ON T I ME smnt'Jy?. 

^>9yy p \' * t<f>t—-T)V 21. 

A" — * X ^ -f > • 7 7 7 . 

A-— • X^f-7> • n— • f7. 

A-— • X ** > • T — 

A-— • X^rf > • rtf 'f > ^. 

3-— • X A- + > * T—9. 

*— • • n- K. 
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EFFFH 


F 0 0 0 H 


F 0 0 1 H 

■ X*V>X'C AP S (0 0Htt7, 8 0 H Tty). 

F 0 0 2 H 

l?y7K 2-CCTRL, 3 T7j+, 4 Ti} + • y7 K 5 T*G R P H 

F 0 0 3 H 

~7 y y 9 y s'y • %— • at A >9. 

F 0 0 5 H 

USARTW7T'f^' 9A9. 

F 0 0 6 H 

CMTW^'yf- f '77/. 

F 0 0 7 H 

CMTWo-p-77/. 

F 0 0 8 H 

CMTWASf-?. 

F 0 0 9 H 

CMTOiK-l/-f (F A Hf6 0 0 )K—, FBHT’l 200 df—). 

F 0 0 AH 

C M T X>-< ij 7 t A '77/. 

F 0 0 BH 

• -t- VX'<7 9 — 9 -77 7*. 

F 0 0 CH 

? — i f7U ■ -t— KT-Wt*— ;?<£)£— BHf Jh77 X". 

F 0 0 DH 

^ ^ -7CO SECOND (*>: BCDa-F'). 

FO 0 EH 

9 -i -7<r>M I N U T E («■: BCDa-K). 

F 0 0 FH 

9A-?<n HOUR (H:BCD^-F). 

F 0 1 0 H 

9 A-?<r>V> AY (0 : BCD3-F). 

F 0 1 1 H 

74 -7»MONTH (fl : '<A9 'J • a—K). 

F 0 1 2 H 

74-7«YEAR (# : BCDa—K). 

F 0 1 3 H 

PUT@(7)^ft. 

F 0 1 4 H 

PUTStKv F Sr-t y F1" 4 £ 7 -. 

F 0 1 5 H 

PUT@tF7 F £ ') -te 7 F + SAI-S-Xi ii 7 —. 

F 0 1 6 H 

P U T @ co F* 7 F • -fey F •77/. 

F 0 1 7 H 

P UT @<0 F* 7 F • V -fe 7 F '77/. 

F 0 1 8 H 

PUT@W-fe7 Ht’y F •■’'7->. 

F 0 1 9 H 

P U T @ <0 U -te 7 F ffl t* 7 F • '<9 — y. 

F 0 1 AH 

9=77 4 ■y9ffim.M ( 0 - 6 3 9 ). 

FO 1 CH 

9=77 4 7?i*g (0-19 9). 

F 0 1 EH 

F*7 F •/77<7?li7- (0-7). 

F 0 1 FH 

F' 7 F • 9=7 74 7 ? T* F* 7 F £ 0 -fe 7 F 1" & *§-cF<o * 7 — ( 0 - 7 ). 

F 0 2 0 H 

,-K-r- ■ *7- (0-7). 

F 0 2 1 H 

GET® TUcAii tr 9=7 7 4 7 7 • '<9— y<7)ffi<7) F'7 Fft. 

F 0 2 3 H 

GET® T'1%* jitf 9=7 7 4 7 X • — >cO*co F*7 F &. 

F 0 2 5 H 

7 -T > x ? 4 ;u. 
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F 0 2 7 H 
F 0 2 9 H 
F 0 2 BH 
F 0 2 DH 
F 0 2 FH 
F 0 3 1 H 
F 0 3 3 H 
F 0 3 5 H 
FO 3 6 H 
F 0 3 7 H 
F 0 3 8 H 
F 0 3 9 H 
F 0 3 BH 
F 0 3 DH 
F 0 3 EH 
F 0 3 FH 
F 0 4 0 H 
F 0 4 2 H 
F 0 4 4 H 
F 0 4 5 H 
F 0 4 6 H 
F 0 4 8 H 
F 0 4 9 H 
F 0 4 BH 
FO 4 CH 
FO 4 EH 
F 0 4 FH 
F 0 5 1 H 
F 0 5 2 H 
F 0 5 4 H 
F 0 5 6 H 
F 0 5 7 H 
F 0 5 8 H 
F 0 5 9 H 


( 0 — 6 3 9 ). 

M.m<r>7yy 4 *y (0-199). 

b* jl— rK— f 
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b—iK— F 

/77^ 7^1iC^t^GVRAM^7 Kl/X. 

/77>f 7^1lCWtl)b7F 

/77^ >y ^^(c^1-^BLUEff^*(7)^te (FFH|/:(±0 OH). 
/7 7>f <y ( F F H £ fcii 0 0 H). 

/77>f "/? & G REENjf-^^^*te (FFHifcliOOH). 

F'*y F • /77^ >y ( 2 0 0 i/:(i4 0 0 ). 

LINEi7Fi/X. 

L I NEfflBLUE|ff(7)ti (FFH|/:li00H), 

L I NEfflREDif-tcot*^ (FFH^:li00H), 

L I NEfflGREENif<7)ti (F F H £ tilt 0 0 H ). 

L I 

L I NEffl77;i/-f>^7 Kl/X. 

L I NEffl#7- (0-7). 

L I NEtKv F fc U-fe7 Ft**^*)*?- ( 0 - 7 ). 

PO I NTfflT Fl/X. 

PO I NT m*7-. 

COPYb-F. 

LINE 7FI/X. 

L I NE t77~. 

pa i NTffl^>f;^»tt§ivrv^xF iijT^)jfcflir Kwx. 

PA I NTffl*>f F ')> 7 • ^')TC0fcJT KUX. 

PA I NTffiM^< 7 ? • K • X F ') 

PA I N T 7 7 /. 

PA I F$c (0*fe). 

PA I NTffiM^7^ • 7y 7> F • X F ') > 
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F 0 5 CH 

*5e. 

F 0 6 2 H 

PA I NTiSfi-Wft**. 

F 0 6 4 H 

PA I NTS^ti-wS?. 

F 0 6 6 H 

PA I E • 

F 0 6 8 H 

PA I • -h'Oy?. 

F 0 6 AH 

'FaE. 

F 0 7 1 H 

PUT@cot % 8 0 H, GET@Wi 1 0 0 H. 

F 0 7 2 H 

^aE. 

F 0 8 7 H 

SCREEN 'CffiSLfciiiB-t— K (0-2). 

F 0 8 8 H 

SCREENtilgLfcMX^yf (0-3). 

F 0 8 9 H 

SCREEN -cti® L £7 ? T 4 T • 

F 0 8 AH 

S CREENfigLfcT 9r \ 7 • 

F 0 8 BH 

screen -eiateLizr ?f a e . 

F 0 8 CH 

S CREENfjtSLfc7'-( (0-7). 

F 0 8 DH 

SCREEN X-i$i‘x.lTz®t<nM± E* -/ E 3& ( 2 0 0 £ tzlt 4 0 0 ). 

F 0 8 FH 

W I N D OW7 7 7 ( 0 1 Hcoi 00H«i £5fc^ff). 

F 0 9 0 H 

e*— jK— E 

F 0 9 2 H 

tr jl— d?— E <r>m<r>m±\S.. 

F 0 9 4 H 

'O -i > E'^T^oftTdi. 

F 0 9 8 H 

■7 -i > E* 7 oilofcMi . 

F 0 9 CH 

tfi—iK— E i *14 > E' , 7<7)flf7j|n]7>.tfc. 

F 0 A 0 H 

t'i-tf— E 4 > vycoMUfantt. 

F 0 A4 H 

E'#SMIfI. 

F 0 A 8 H 

jtffii<7) r 7 —•'P E'SSS®. 

F 0 ACH 


F 0 B 0 H 

>7^ > E' r 7T>;fc±cD]1.660lf!l18. 

F 0 B 4 H 

7-f > E'7 <^£±<7)11.6 cd«I!11S. 

F 0 B 8 H 

<y j > E* r 7<7);frT<7>ra.£c>1i®li. 

F 0 BCH 

>7^ > v , y(?>fcTF>m&r>%iiM.w. 

F 0 C 0 H 

V I EWI. 

F 0 C 2 H 

V I EWI. 

F 0 C 3 H 

V I EWI. 

F 0 C 5 H 

VIEWffi. 

F0C6H 

V I EWI. 
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F 0 C 8 H 
F 0 CAH 
F 0 CBH 
F 0 CCH 
FO CEH 
F 0 D 0 H 
F 0 D 3 H 
F 1 5 3 H 
F 1 5 4 H 
F 1 5 5 H 
F 1 6 CH 
F 1 7 5 H 
F 1 8 4 H 
F 1 8 7 H 
F 1 8 AH 
F 1 B 5 H 
F 1 B CH 
F 1 C 2 H 
F 1 C 8 H 
F 1 CEH 
F 1 CFH 
F 1 D 0 H 
F 1 D 1 H 
F 1 D 3 H 
F 1 D 4 H 
F 1 D 6 H 
F 1 D 8 H 
F 1 D AH 
F 1 DCH 
F 1 DEH 
F 1 DFH 
F 1 E 0 H 
F 1 E 1 H 
F 1 E 2 H 


v i ew m. 
v i ew m. 

V IEWffl. 

V IEWffl, 

V IEWffl, 

RS-232 Cffl4'>^7*/h • /< 7 7 t, 

RS- 2 3 2 CATjfflS I, S 0 7 7 
R S - 2 3 2 I, SO 77/. 

>f > R 0 Ml*] £ => — >. 

*y (LD I R) 

(LDDR) ^r;u-f->. 

t-n'l/xX^HLT^t^ R-f 6 

* h 7 7 7", 

— ^G377 K T, /A >ROMHi^^ h L t > */"t* h )V— f- > 

^-^7)7'w-x • tK'T > h (FFH) F777. 

-t-^ ct)-c-x - 7xr(48Hc7)i#l6ii, 5 1 H X) £ # 8 iM). 
•^jz.^c7)7'u — ^ •Tif'fvh * ~7 y 7 {0 <r)tb~Tv — 9 • > h $$ L). 

7V-? • sK>f > 

7u-? ■ > h(7)T Ki^xi. 

• 4f>f > hX>T'-^jliIM2. 

-Tv—? • #4 > h<7)T Kux 2 . 

"6-^c 7)D=3^> K<7)T pl/X. 

Kc7)T Kux. 

K<7)T Fi/X, 

-t — ^T"ii:jfijX>7 Ku X. 

I&tt-T—^ A#77 ?'l . 

OT;M>ROM, lt^ROM, 3 WROM. 

CMTX)7r>f^- 4* — A • a* 7 7 7i 
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F 1 EFH 

7 CO'-'C IJ 7 T A • 7 7 /( 0 0 H T ') — K, FFH X"<') ~?t 4 ). 

F 1 FO H 


F 1 F 1 H 

Scft-f — ? Aft 7 7 7' 2 . 

F 1 F2 H 

r'-f x? • rprffl. 

F 1 F4 H 

r')>;- 77/(0 0 Htf< 7X-7A, FFHT-f *—TOP). 

F 1 F 5 H 

rAx h • iJM P? {WX7 HL) iliSffl. 

F 1 F 7 H 

X^x? • Xj>7 (SP) Jtiiffl. 

F 1 F9 H 

h 7 0 H#tt!^OJt):*J7'-;5'. 

F 1 FAH 

e d c 9 h #jftco7'— 

F 1 FB H 

E D C A H 

F 1 FCH 

E D C B H SifcWf'— ?Jtitffl. 

F 1 FDH 

X? y ? • iK-f P? (S P) iliiffl. 

F 1 FFH 

-rvryh.- (pc)'Jiiiffl. 

F 2 0 1 H 

4>7?r\- • '<7 7 • vvx9 (pj?x^i) iiiiffl. 

F 2 0 3 H 

P^X^I Yiliiffl. 

F 2 0 5 H 

PP*X?I Xifiigffl. 

F 2 0 7 H 

PxX:?HL’ jfiiUtffl. 

F 2 0 9 H 

PPX^DE’ jUiUffl. 

F 2 0 B H 

PP*X?BC’ ililffl. 

F 2 0 DH 

PP'X^AF’ JliSffl. 

F 2 0 FH 

PxX^HLJiiiffl. 

F 2 1 1 H 

P->*X^DEJi®ffl. 

F 2 1 3 H 

P i7X 7 B CjfiiMffl. 

F 2 1 5 H 

P X ^ A F illifitffl. 

F 2 1 7 H 

1 6iiA‘fe8ii^<!0S«^-y7r. 

F 2 1 EH 


F 3 0 0 H 

^ P^xr h PtCMTi'iy'S I0-f>^77KE7EAH). 

F 3 0 2 H 

4 P^xVh --<7 E /PT'V RTC-f p ? x x” h (E 8 0 8 H) . 

F 3 0 4 H 

T P?X7' h • -<? E ;PT'J 7/^U • 4 P?XX"E (E80EH) . 

F 3 0 6 H 

A yfy-fb -^7 h;p-Ci-Hf— INT4(E814H). 

F 3 0 8 H 

T 7^77 h •'<? h;p-Ci-Hf- - ^>^77-h I NT 3 (E 8 1 4 H). 

F 3 0 A H 

•T p^x-TI- • -t? h ;pfi-Hf— •Tp^77’I- INT2(E8 14H). 

F 3 0 C H 

4 >7y-ry ■'<? E/UT-FDD 1 (E 8 1 AH) . 

F 3 0 E H 

■{ >?y-rv •'<7 WK-FDD2 (E 8 2 0 H) . 
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F 3 1 0 H 
F 3 2 0 H 
F 3 C 8 H 
FFF8 H 


■i • -<? h /uf 8 
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^0K0#i±, P C - 8 8 0 1 3 1 wro 7 7l:9-ltfcit, 3 1^- 

P'coES&SI t LX $ t t coxt. 

WT£, 0S&H*4 , < 7 )^ i — ! J>7t ^7'd >y Lit. 

I. CPU(l) 2. C P U(2) 

3. ROM® 4. R 0 M(2) 

5. RAM(l) 6. R A M(2) 

7. I/O PORT(l) 8. I/O P 0 R T(2) 

9. INTERRUPT CONTROL(l) 

10. INTERRUPT C 0 N T R 0 L(2) 

II. FDC PORT(l) 12. FDC PORT(2) 

13. SER I AL I NTERFACE(l) 

14. SERIAL INTERFACE® 

15. KEYBOARD(l) 16. KEYBOARD® 

17. CRT C(l) 18. CRT C(2) 

19. GVRAM ADDRESS CONTROL(l) 

20. GVRAM ADDRESS C 0 N T R 0 L(2) 

21. GVRAMO AND GVRAM 1(1) 

22. GVRAM 0 AND GVRAM1® 

23. G V R A M 2(1) 24. GVRAM2® 

25. COLOR CONTROL® 

26. COLOR CONTRO L® 

27. VIDE 0(1) 28. VIDEO® 

29. BUS SLOT(l) 30. BUS SLOT® 

31. DMAC 
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9 . INTERRUPT CONTROL(I) 
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21. GVRAMO AND GVRAM1(1) 


































































































































22. GVRAMO AND GVRAM 1 (2) 
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24. GVRAM 2(2) 
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8 AH 

8 BH 

8 CH 

8 DH 

8 E H 
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9 BH 

9 CH 

9 DH 
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9 FH 

A 0 H 

A 1 H 

A 2 H 

A 3 H 
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END 

5 0 E 5 H 

FOR 

0 8 BFH 

NEXT 

5 2 BDH 

DATA 

0 C 7 7 H 

I NPUT 

1 0 2 DH 

D I M 

5 AC 5 H 

READ 

1 0 F 9 H 

LET 

0 C 9 CH 

GOTO 

0BF9H 

RUN 

0 B 7 CH 

I F 

0 E 0 5 H 

RESTORE 

5 0 A 5 H 

GOSUB 

0 BBFH 

RETURN 

0 C 4 1 H 

REM 

0 C 7 9 H 

STOP 

5 0 C AH 

PRINT 

0 E 5 4 H 

CLEAR 

5 2 2 E H 

LIST 

1 8 D 9 H 

NEW 

7 7 DDH 

ON 
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WA I T 

1 8 0 0 H 

DEF 

1 5 D 7 H 

POKE 

1 B 8 4 H 

CONT 

5 1 4 0 H 
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1 7 F AH 

LPR I NT 

0 E 4 CH 

LL I S T 

1 8 D 4 H 

CONSOLE 

7 0 7 1 H 

WIDTH 

1 8 1 AH 

ELSE 

0 C 7 9 H 

TRON 

5 1 5 8 H 

TROFF 

5 1 5 9 H 

SWAP 

5 1 5 EH 

ERASE 

5 1 9 CH 
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6 5 7 BH 

ERROR 

0 DC AH 
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A 6 H 

RESUME 

A 7 H 

DELETE 

A 8 H 

AUTO 

A 9 H 

RENUM 

A A H 

DE FS TR 

ABH 

DE F I NT 
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DEFSNG 

ADH 

DEFDBL 

A E H 

LINE 
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WHILE 

BOH 

WEND 
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CALL 

B 5 H 

WRITE 

B 6 H 

COMMON 
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B 8 H 

OPTION 

B 9 H 

RANDOM 
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OPEN 

BCH 
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BDH 
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PUT 
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SET 
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CLOSE 
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MERGE 
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FILES 
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SAVE 
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4 7 9 8 H 
4 A 5 C H 
7 1 9 8 H 
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E 8 2 6 H 

6 8 7 8 H 

7 D 9 6 H 
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FFH 

A 1 H 

CVS 

4 ABDH 



FFH 

A 2 H 

C VD 

4 AC 0 H 



FFH 

A 3 H 

EOF 

4 C 5 1 H 

A 6 8 5 H 


FFH 

A 4 H 

LOC 

4 C 2 FH 

A 6 4 0 H 
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FFH 

A 5 H 

LOF 

4 C 4 0 H 

A 6 6 9 H 


FFH 

A 6 H 

FPO S 

4 C 6 2 H 

A 6 C 9 H 


FFH 

A 7 H 

MK I $ 

4 A A 1 H 



FFH 

A 8 H 

MK S $ 

4 A A 4 H 



FFH 

A 9 H 

M K D $ 

4 A A 7 H 



FFH 

D 0 H 

D S KF 

8EC3H 



FFH 

D 1 H 

V I EW 

6 AC 6 H 

6 C A 8 H 

(M&) 

FFH 

D 2 H 

WINDOW 

6 C 5 5 H 

6 DC 5 H 

(M») 

FFH 

D 3 H 

POINT 

6 E 2 5 H 

6 DC 0 H 

(Mifc) 

FFH 

D 4 H 

C S RL I N 

3 F 3 1 H 



FFH 

D 5 H 

MAP 

6 D 2 9 H 



FFH 

D 6 H 

SEARCH 

8 8 E 9 H 



FFH 

D 7 H 

MOTOR 

7 F 3 0 H 



FFH 

D 8 H 

PEN 

7 2 C 8 H 

7 2 EDH 

(M&) 

FFH 

D 9 H 

DATES 

7 2 1 CH 

7 4 EEH 

(«&) 

FFH 

DAH 

COM 

7 D 7 1 H 



FFH 

DBH 

KEY 

7 4 2 E H 



FFH 

DCH 

TIMES 

7 2 7 9 H 

7 5 2 AH 

(W») 

FFH 

DDH 

WB YTE 

EE A 1 H 



FFH 

DEH 

RB YTE 

EE A 4 H 



FFH 

DFH 

POLL 

EE A 7 H 



FFH 

EOH 

I SET 

EE A AH 



FFH 

E 1 H 

IEEE 

EEB 9 H 



FFH 

E 2 H 

I RESET 

EE ADH 



FFH 

E 3 H 

STATUS 

EEB 0 H 

EEB 3H 

(M») 

FFH 

E 4 H 

CMD 

EEB 6 H 




T-7VH4 6 9FEH-6F1 1 
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fux-i 


A 

(T-b> 7Vu) 


6 D 0 2 H 

B 

(^-x) 


6 9 5 E H 

D 

(r>7•>* u) 


6 1 A 3 H 

E 

(juf'-f h • / >) ) 


6 4 D 8 H 

F 

(7 -f • / * ij) 


6 3 D 8 H 

G 

(3'-) 


6 4 0 6 H 

I 

(4 >7--y h) 


6 4 7 9 H 

L 

(f'-f X • 7-fe>7Vu) 


6 9 7 6 H 

M 

(A — 7 • / t'l) 


6 4 A 6 H 

0 

(77 1-7-7 h ) 


6 4 9 1 H 

P 

(?')>? • X4 7f) 


6 E 7 3 H 

R 

(■; — K • r-f) 


6 8 0 7 H 

S 

(-te-y \ • 4 * 'J ) 


6 1 3 5 H 

TM 

(fxh^'J) 


7 2 7 CH 

V 

(^S. 1J 7 T 4 • T— 7) 


6 8 0 6 H 

W 

(74 h • r—7) 


6 7 5 4 H 

X 

(-(/f;>^yX^) 


6 2 5 4 H 

CTRL-A 

(^;u7) 


7 4 6 F H 

CTRL—B 



6 E 5 FH 

CTRL—D 

(7>7 'f^x7) 

E 6 7 2 H 

8 4 2 7 H 

CTRL—R 

O-f'fUJ’) 

E 6 7 8 H 

8 4 F 8 H 

CTRL-W 

(74 h -f-fX?) 

E 6 7 5 H 

8 4 F 1 H 


T—7VM4 6 0F0H-6105 HSitST-l". 
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m 

(7nH 

* 
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m 
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if 

* 

(y7>) 

uiL) 

6 

(*741-) 

G 

OFF 

OFF 

OFF 

OFF 

OFF 

0 N 

0 N 

0 N 

R 

OFF 

OFF 

0 N 

0 N 

OFF 

OFF 

0 N 

0 N 

B 

OFF 

0 N 

OFF 

0 N 

OFF 

0 N 

OFF 

0 N 
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fiGDM'82 


-f h ^^'>3 >y 








I . ^COM-82 


’ *> a > • -t "j h 




LD r, r 
LD r.n 

LD r, (HL) 
LD r, (IX + d) 

LD r, (IY + d) 

LD (HL), r 
LD (IX + d), r 

LD (IY + d). r 

LD (HL), n 
LD (IX + d), n 

LD (IY + d), n 


LD dd, nn 

LD IX. nn 

LD IY. nn 

LD HL, (nn) 

LD dd, (nn) 


r—(HL) 
r —(IX + d> 

r—(IY+d) 

(HL)-r 
(IX + d)—r 

(IY + d)—r 

(HL)-n 
(IX + d)—n 


LD A, (BC) 

LD A. (DE) 

LD A, (nn) 

A—(BC) 

A—(DE) 

A—(nn) 

LD (BC), A 

LD (DE). A 

LD (nn), A 

(BC)—A 

(DE) —A 

(nn)—A 

LD A, I 

A—I 

LD A. R 

A-R 

LD I, A 

I—A 

LD R, A 

R-A 


H*-(nn + l) 
L—(nn) 


ddH«-(nn + 1) 
ddt.-(nn) 


7 7 / 

S Z H P/V N C 

'<4 b 

XT — b 

0 P 3 — K 

76 543 210 


1 

4 

01 r r © 


2 

7 

00 r 110 © 

— n -* 


1 

7 

01 r 110 © 


3 

19 

11 011 101 

01 r 110 © 
- d - 


3 

19 

11 111 101 

01 r 110 © 
- d - 


1 

7 

01 110 r © 


3 

19 

11 011 101 

01 110 r © 

- d - 


3 

19 

11 111 101 

01 110 r © 

- d - 


2 

10 

00 110 110 


4 

19 

11 011 101 
oo no no 

- d - 


4 

19 

11 111 101 
oo no no 

- d - 

— n -* 


1 

7 

00 001 010 


1 

7 

00 011 010 


3 

13 

00 111 010 

— n —* 

. 

1 

7 

00 000 010 


1 

7 

00 010 010 


3 

13 

oo no oio 

— n —* 

t t 0 IFF 0 • 

2 

9 

11 101 101 

01 010 111 

\ t 0 IFF 0 • 

2 

9 

11 101 101 
oi on in 


2 

9 

11 101 101 

01 000 111 


2 

9 

11 101 101 

01 001 111 


3 

10 

00 ddO 001 ® 

— n — * 

r 

4 

14 

n on ioi 

00 100 001 

— n — » 

— n — ► 


4 

14 

11 111 101 

00 100 001 

— n — * 

— n — * 


3 

16 

00 101 010 
— n — ► 

. 

4 

20 

11 101 101 

01 ddl on ® 

— n -♦ 
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3 > 

7 7 r 

S Z H P/V N C 

'<4 b 

*T— b 

0 P 3 — K 

76 543 210 

LD IX, (nn) 

IX H -(nn + l) 

IXL-(nn) 

. 

4 

20 

11 011 101 

00 101 010 

— n —* 







LD IY, (nn) 

IY H -(nn + l) 

IY L -(nn) 


4 

20 

11 111 101 

00 101 010 

— n — 






— n —* 

LD (nn), HL 

(nn + 1) — H 
(nn)—L 


3 

16 

00 100 010 
— n — 

— n — 

LD (nn), dd 

(nn + 1)—ddH 
(nn)«-ddu 


4 

20 

11 101 101 

01 ddO 011 ® 






— n —* 

LD (nn), IX 

(nn +1) —IXh 
( nn)—IX l 


4 

20 

11 011 101 

00 100 010 
— n — 






— n — 

LD (nn), IY 

(nn + 1 )—IYh 
( nn)—IY l 


4 

20 

11 111 101 

00 100 010 

— n —* 

LD SP, HL 

SP—HL 


1 

6 

11 111 001 

LD SP.IX 

SP-IX 


2 

10 

11 011 101 

11 111 001 

LD SP, IY 

SP—IY 


2 

10 

11 111 101 

11 111 001 

PUSH qq 

(SP— 2)*—qqL 
( SP— 1) —qqH 


1 

11 

11 qqO 101 ® 

PUSH IX 

(SP-2)-IX l 
(SP- 1)—IX H 


2 

15 

11 011 101 

11 100 101 

PUSH IY 

(SP— 2)—IYl 
( SP— 1) — IYh 


2 

15 

11 111 101 

11 100 101 

POP qq 

qq H -(SP+l) 
qqL — (SP) 


1 

10 

11 qqO 001 ® 

POP IX 

IX H -(SP+1) 

IX L -(SP) 


2 

14 

11 011 101 

11 100 001 

POP IY 

IY„-(SP+1) 

IYl—(SP) 

. 

2 

14 

11 111 101 

11 100 001 

EX DE.HL 

DE—HL 

.... 

1 

4 

11 101 011 

EX AF, AF’ 

AF—AF' 


1 

4 

00 001 000 

EXX 

/BC—BC'\ 

DE— DE 

Ihl-hlJ 


1 

4 

11 011 001 

EX (SP), HL 

H—(SP+1) 

L-(SP) 


1 

19 

11 100 011 

EX (SP).IX 

IX H -(SP+1) 

IXl-(SP) 


2 

23 

11 011 101 

11 100 011 

EX (SP), IY 

IYh— (SP + 1) 

IYl— ( SP) 


2 

23 

11 111 101 

11 100 011 

LDI 

(DE)—(HL) 

DE-DE+1 

HL-HL+l 

BC—BC— 1 

(D 

• • 0 t o • 

2 

16 

11 101 101 

10 100 000 

LDIR 

(DE) — (HL) 

DE—DE+1 

HL-HL+l 

BC—BC-1 until BC=0 

•• 0 0 0 * 

2 

21 if BC* 0 

16 if BC = 0 

11 101 101 
io no ooo 
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---e- v ? 

— X 3 > 

S 

7 

z 

y 7 

H P/v N 

C 

'<4 h 

*r— h 

OP=> 

76 543 

- K 
210 








® 










T 

LDD 

(DE) —(HL) 



0 

X 

0 


2 


16 

11 

101 

101 


° 


DE-DE- 1 










10 

101 

000 




HL-HL-1 














& 


BC—BC -1 














j*s 

LDDR 

(DE)—(HL) 



0 

0 

0 


2 

21 

if BC+0 

11 

101 

101 


& 


DE—DE-1 








16 

if BC = 0 

10 

111 

000 


45- 


HL-HL-1 
















BC—BC-1 until BC = 0 


















<f> 


® 











CPI 

A- (HL) 

X 


\ 

X 

1 


2 


16 

11 

101 

101 




HL-HL+1 










10 

100 

001 




BC—BC— 1 














-r 




(D 


® 











CPIR 

A—(HL) 

X 

! 

X 

X 

1 

• 

2 

21 

if BC +0 

11 

101 

101 




HL—HL+1 









and A+(HL) 

10 

110 

001 


7 


BC—BC-1 until A = (HL) 








16 

if BC = 0 







or BC = 0 









or A = (HL) 









® 












1 

CPD 

A-(HL) 

X 

t 

X 

T 

1 


2 


16 

11 

101 

101 


* 


HL-HL-1 










10 

101 

001 


ft 


BC—BC-1 














4* 




® 


(D 











CPDR 

A- (HL) 

X 

\ 

X 

X 

1 


2 

21 

if BC+0 

11 

101 

101 




HL—HL-1 









and A*(HL) 

10 

111 

001 




BC—BC-1 until A = (HL) 








16 if BC = 0 







or BC=0 









or A = (HL) 






ADD A, r 

A—A + r 

X 

t 

X 

V 

0 

X 

1 


4 

10 

000 

r 

© 


ADD A, n 

A—A + n 

X 

t 

X 

V 

0 

X 

2 


7 

11 

000 

110 














— 

n 

-» 



ADD A, (HL) 

A—A+(HL) 

X 

\ 

X 

V 

0 

X 

1 


7 

10 

000 

110 



ADD A, (IX+d) 

A—A + (IX+d) 

X 

i 

X 

V 

0 

X 

3 


19 

11 

10 

Oil 

000 

101 

110 















d 




ADD, A, (IY + d) 

A— A+ (IY + d) 

X 

t 

X 

V 

0 

X 

3 


19 

11 

10 

111 

000 

101 

110 















d 



8 

ADC A, r 

A-A+r+CY 

X 

t 

X 

V 

0 

X 

1 


4 

10 

001 

r 

© 

h' 

ADC A. n 

A—A+n + CY 

X 

t 

X 

V 

0 

X 

2 


7 

11 

001 

no 














— 

n 

—* 


•/ 

ADC A, (HL) 

A—A+(HL) +CY 

X 

t 

X 

V 

0 

X 

1 


7 

10 

001 

no 



ADC A, (IX+d) 

A—A+(IX+d) +CY 

X 

i 

X 

V 

0 

X 

3 


19 

11 

Oil 

101 














10 

001 

no 














— 

d 

-* 


«T 

ADC A. (IY + d) 

A—A+ (IY+d) +CY 

X 

t 

X 

V 

0 

X 

3 


19 

11 

111 

101 














10 

001 

no 


& 













d 

— 


s 

SUB r 

> 

i 

1 

X 

t 

X 

V 

1 

X 

1 


4 

10 

010 

r 

© 

;£ 

SUB n 

A—A—n 

X 

t 

X 

V 

1 

X 

2 


7 

11 

010 

no 














«— 

n 

—* 


w 

SUB (HL) 

A—A—(HL) 

X 

1 

X 

V 

1 

X 

1 


7 

10 

010 

no 


& 

SUB (IX+d) 

A—A—(IX+d) 

X 

\ 

X 

V 

1 

X 

3 


19 

11 

Oil 

101 














10 

010 

no 


4* 












— 

d 

— 



SUB (IY+d) 

A—A—(IY+d) 

X 

t 

X 

V 

1 

X 

3 


19 

11 

111 

101 














10 

010 

no 














— 

d 

— 



SBC A, r 

A-A-r-CY 

X 

t 

X 

V 

1 

X 

1 


4 

10 

Oil 

r 

© 


SBC A, n 

A-A-n-CY 

\ 


X 

V 

1 

X 

2 


7 

11 

Oil 

no 














*— 

n 

—*■ 



SBC A, (HL) 

A—A—(HL) — CY 

t 

t 

X 

V 

1 

X 

1 


7 

10 

Oil 

no 
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—■> 3 > 

-7 7 7 

S Z H P/v N c 


XT— h 

0 P a - K 

76 543 210 


SBC A, (IX + d) 

A— A—(IX + d)—CY 

I I I V 1 1 

3 

19 

11 011 101 

10 011 110 
- d - 


SBC A,(IY + d) 

A«—A—(IY + d) — CY 

t t t V 1 1 

3 

19 

11 111 101 

10 011 110 
- d - 


AND r 

A«-A A r 

t t 1 P o 0 

1 

4 

10 100 r (g) 


AND n 

A«-A A n 

t t 1 p 0 0 

2 

7 

11 100 110 
*— n -* 


AND (HL) 

A«-A A(HL) 

t t 1 P o 0 

1 

7 

10 100 110 


AND (IX + d) 

A«—A A(IX + d) 

t t 1 P 0 0 

3 

19 

11 011 101 

10 100 110 

— d — 


AND (IY + d) 

A*-A A(IY+d) 

t t 1 p o 0 

3 

19 

11 111 101 
io ioo no 

«- d — 


OR r 

A*-A V r 

o 

*0 

o 

o 

1 

4 

10 110 r © 


OR n 

A*—A V n 

o 

Cl. 

o 

2 

7 

ii no no 

«— n -* 

8 

OR (HL) 

A«-A V(HL) 

t t o P 0 0 

1 

7 

io no no 

t' 

OR (IX + d) 

A«—A V(IX + d) 

t t o P 0 0 

3 

19 

n on 101 
io no no 

— d — 

7 

h 

OR (IY + d) 

A*-A V(IY + d) 

t t o P 0 0 

3 

19 

11 111 101 
io no no 

- d - 

XOR r 

A-AVr 

t t o P 0 0 

1 

4 

10 101 r © 

8 

XOR n 

A«— A V n 

t 1 o P 0 0 

2 

7 

n ioi no 

«— n —* 

tfr 

XOR (HL) 

A*-A V(HL) 

t t o P 0 0 

1 

7 

io ioi no 

A 

XOR (IX + d) 

A«—A V(IX + d) 

1 t o P 0 0 

3 

19 

n on ioi 
io ioi no 

— d — 

a 

m 

XOR (IY+d) 

A*-AV (IY + d) 

t t o P 0 0 

3 

19 

11 111 101 
io ioi no 

— d -* 


CP r 

A-r 

1 II V It 

1 

4 

10 111 r © 

* 

CP n 

A—n 

t $ t V 1 t 

2 

7 

ii in no 

*— n —* 

& 

CP (HL) 

A-(HL) 

1 1 t V 1 $ 

1 

7 

io in no 


CP (IX+d) 

A— (IX+d) 

t t t V 1 t 

3 

19 

n on ioi 
io in no 

— d — 


CP (IY+d) 

A — (IY + d) 

t t X V 1 t 

3 

19 

11 111 101 
io in no 

- d - 


INC r 

r—r + 1 

1 t t vo¬ 

1 

4 

00 r ioo © 


INC (HL) 

(HL)-(HL)+ 1 

lt t vo¬ 

1 

11 

oo no ioo 


INC (IX+d) 

(IX + d) — (IX + d) + 1 

lt J V 0 • 

3 

23 

11 011 101 
oo no ioo 

— d - 


INC (IY+d) 

(IY + d)—(IX + d) + 1 

tttvo- 

3 

23 

11 111 101 
oo no ioo 

— d - 


DEC r 

r«— r — 1 

t t t V 1 . 

1 

4 

00 r 101 © 


DEC (HL) 

(HL)«-(HL) — 1 

t t t V 1 - 

1 

11 

oo no ioi 


DEC (IX+d) 

(IX + d) — (IX + d) - 1 

_ 

t t t V 1 . 

3 

23 

n on ioi 
oo no ioi 

- d - 
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7 

7 

7 


'<4 h 

XT— h 

O P 3 

- K 




T ^ U — > a > 

S 

z 

H P/v N 

c 

76 

543 

210 


m w 8 

DEC (IY + d) 

(IY + d)—(IY + d)- 1 

t 

t 

t v 

1 


3. 

23 

11 

111 

101 


ViW\ tr 









00 

110 

101 


ftft ' 
-fra f- 











d 

— 



ADD HL,ss 

HL—HL+ss 



x • 

0 

X 

1 

11 

00 

ssl 

001 



ADC HL,ss 

HL-HL + ss + CY 

t 

t 

X v 

0 

X 

2 

15 

11 

101 

101 











01 

ssl 

010 


SBC HL, ss 

HL—HL-ss-CY 

t 

t 

X v 

1 

X 

2 

15 

11 

101 

101 

® 

16 









01 

ssO 

010 

t' 

ADD IX PP 

IX-IX + pp 



X • 

0 

X 

2 

15 

11 

011 

101 










00 

PPl 

001 

© 


ADD IY t rr 

lY-IY + rr 



X • 

0 

X 

2 

15 

11 

111 

101 


h 









00 

rrl 

001 


# 

INC ss 

ss—ss + 1 





• 

1 

6 

00 

ssO 

Oil 

® 

m 

INC IX 

IX-IX + 1 






2 

10 

11 

011 

101 


m 









00 

100 

Oil 


* 

INC IY 

IY—IY +1 






2 

10 

11 

111 

101 










00 

100 

Oil 


ft 

It 

DEC ss 







1 

6 

00 

ssl 

Oil 

® 

DEC IX 

IX-IX- 1 






2 

10 

11 

011 

101 












00 

101 

Oil 



DEC IY 

IY—IY — 1 






2 

10 

11 

111 

101 











00 

101 

Oil 


r 

DAA 

Decimal adjust Acc 

t 

t 

t p 

• 

X 

1 

4 

00 

100 

111 



CPL 

A-A 



1 • 

1 


1 

4 

00 

101 

111 


t 

NEC 

A—A+ 1 

t 

t 

\ V 

1 

X 

2 

8 

11 

101 

101 


l 

9 










01 

000 

100 


i 

«* 

CCF 

CY-CY 

• 

. 

X . 

0 

X 

1 

4 

00 

111 

111 



SCF 

CY—1 



o • 

0 

1 

1 

4 

00 

no 

111 



NOP 

No operation 






1 

4 

00 

000 

000 


c 

HALT 

CPU halted 






1 

4 

01 

110 

110 


p 

u 

DI 

IFF—0 






1 

4 

11 

110 

Oil 


3 

El 

IFF—1 






1 

4 

11 

111 

Oil 


h 

IM 0 

Set interrupt mode 0 






2 

8 

11 

101 

101 


a 









01 

000 

110 


1 

IM 1 

Set interrupt mode 1 






2 

8 

11 

101 

101 


ft 









01 

010 

110 



IM 2 

Set interrupt mode 2 






2 

8 

11 

101 

101 











01 

Oil 

110 



RLCA 

rCYW_| 7 «-0 I- 1 

. 


o • 

0 

X 

1 

4 

00 

000 

111 




A 












o 

RLA 

MTTTi*—rr^oi- 1 


• 

o • 

0 

X 

1 

4 

00 

010 

111 


1 


A 












T 

RRCA 

U| 7 —0..hMg7] 



o • 

0 

X 

1 

4 

00 

001 

111 


1 

h 


A 












RRA 

U l 7—>0 1—>[CYH 



o • 

0 

X 

1 

4 

00 

Oil 

111 




A 












7 

h 














on 














❖ 















283 


















































RLC r 
RLC (HL) 
RLC (IX + d) 

RLC (IY + d) 

RL r 
RL (HL) 

RL (IX+d) 

RL (IY + d) 

RRC r 
RRC (HL) 
RRC (IX + d) 

RRC (IY + d) 

RR r 
RR (HL) 

RR (IX + d) 

RR (IY + d) 

SLA r 
SLA (HL) 
SLA (IX + d) 

SLA (IY + d) 


r, (HL), ( IX+d), (IY + d) 


kCYl-— TT^ == ~o~l «- J 

r, (HL), (IX + d), (IY + d) 


7->0 P -revi 

r, (HL), (IX + d), (IY + d) 


■7 7 r 

S Z H P/vN C 


U 7->0 I- 

r, (HL). (IX + d), (IY + d) 


£7|«-QZ 


r, (HL), (IX + d), (IY + d) 


t t 0 P 0 t 

t t o P 0 t 

t i 0 p 0 t 

t t 0 P 0 t 

t t 0 P 0 t 

t t 0 P 0 t 

t t o P o t 

t $ 0 P 0 t 

t t o P 0 t 

t t 0 P 0 t 

t t 0 P 0 t 

t t 0 P 0 t 

t t o P 0 t 

t t 0 P o t 

t t 0 P 0 t 

i t 0 P 0 I 

I t o P 0 t 

l t o P 0 t 

t t 0 P 0 t 

t t 0 P 0 t 


Xf- Y 


15 

23 


8 

15 

23 


15 

23 


15 

23 


15 

23 


OPa-K 
76 543 210 


11 001 011 
00 000 r © 

11 001 011 
oo ooo no 

11 011 101 
11 001 on 

— d - 
00 000 110 

11 111 101 
11 001 011 

— d - 

oo ooo no 
li ooi on 

00 010 r © 

li ooi on 
oo oio no 

n on 101 
n ooi on 

— d - 

oo oio no 

11 111 101 
n ooi on 

— d - 

oo oio no 
11 ooi Oil 

00 001 r © 

n ooi on 
oo ooi no 

li on 101 
li ooi on 

— d - 

oo ooi no 

11 111 101 
n ooi on 

— d - 
oo ooi no 

li ooi on 
oo on r © 

li ooi on 
oo on no 

li on 101 
n ooi on 

«— d —» 

oo on no 

11 111 101 
n ooi on 

— d - 

oo on no 
li ooi on 

00 100 r © 

li ooi on 
oo ioo no 

li on 101 
li ooi on 

— d — 

oo ioo no 

11 111 101 
n ooi on 

— d - 

oo ioo no 


284 



































— X 3 > 


I =7 7 

S Z H P/v N C 


<4 h 


xr— h 


0 P 3 — K 
76 543 210 


.2 

8 

11 

001 

on 




00 

101 

r 

© 

2 

15 

11 

001 

Oil 




00 

101 

110 


4 

23 

11 

Oil 

101 




11 

001 

Oil 




«— 

d 

—» 




00 

101 

110 


4 

23 

11 

111 

101 




11 

001 

Oil 




«— 

d 

— * 




00 

161 

no 


2 

8 

11 

001 

Oil 

© 



00 

111 

r 

2 

15 

11 

001 

Oil 




00 

111 

110 


4 

23 

11 

on 

101 




11 

001 

Oil 




♦— 

d 

— * 




00 

111 

110 


4 

23 

11 

111 

101 




11 

001 

Oil 




«— 

d 

—» 




00 

111 

no 


2 

18 

11 

101 

101 




01 

101 

in 


2 

18 

11 

101 

101 




01 

100 

in 


2 

8 

11 

001 

Oil 




01 

b 

r 


2 

12 

11 

001 

on 




01 

b 

no 

© 

4 

20 

11 

Oil 

101 




11 

001 

on 




4 — 

d 

—» 




01 

b 

no 

© 

4 

20 

11 

111 

101 




11 

001 

on 




4 — 

d 

— » 




01 

b 

no 

© 

2 

8 

11 

001 

Oil 




11 

b 

r 


2 

15 

11 

001 

Oil 




11 

b 

no 

© 

4 

23 

11 

Oil 

101 




11 

001 

on 




«— 

d 

—» 




11 

b 

no 

© 

4 

23 

11 

111 

101 




11 

001 

on 




«— 

d 

—► 




11 

b 

no 

© 

2 

8 

11 

001 

on 




10 

b 

r 

©© 

2 

15 

11 

001 

Oil 




10 

b 

no 

© 

4 

23 

11 

Oil 

101 




11 

001 

Oil 




10 

b 

no 

© 

4 

23 

11 

111 

101 




11 

001 

on 




«— 

d 

—* 




10 

b 

no 

© 


SRA r 
SRA (HL) 
SRA (IX + d) 

SRA (IY + d) 

SRL r 
SRL (HL) 
SRL (IX + d) 

SRL (IY + d) 

RLD 

RRD 


BIT b, r 
BIT b, (HL) 

BIT b, (IX + d) 

BIT b, (IY + d) 

SET b. r 
SET b, (HL) 
SET b, (IX + d) 

SET b, (IY + d) 

RES b. r 
RES b, (HL) 
RES b, (IX + d) 

RES b. (IY + d) 


[- ^7—>0 I —*[CY] 
r,(HL). (IX+d), (IY + d) 


0-» l 7-» 0 I -> ICY| 

r, (HL), (IX+d), (IY+d) 


A 17-413 — 01 f7~—4I3^-0I (HL) 
A 17 —413 —0l [f- r 4l7 L 0l (HL 


X X 0 P 0 % 

t X 0 p o X 

X X o p o X 

X X o p o X 

X X o p o X 

X X o P o X 

t X o p o X 

X X o p o X 

X X o p o • 

X X o p o • 


Z«-r b 
Z«-(HUh 
Z«—(IX+d)b 

Z—(IY + d) b 

rb«-T 
(HL) b «—1 
(IX + d) b «-l 

(IY + d) b -l 

Tb 4 0 

(HL)b«—0 
(IX + d) b «-0 

(IY + d)b*-0 


X t 1 X 0 

X t 1 X 0 

x X 1 x o 

X t 1 X o 


285 





































--^7 9 

t — S' g > 

S 

7 7 7 

z H P/VN 

c 


X.T— h 

76 

OP 3— K 

543 210 



JP nn 

PC—nn 





3 

10 

11 

000 

Oil 











— 

n 

—» 











— 

n 

—* 



JP cc.nn 

If cc is true PC—nn 





3 

10 

11 

cc 

010 

© 



Otherwise continue 








n 












— 

n 

—► 



JR e 

PC—PC + e 

• 




2 

12 

00 

Oil 

000 











— 

e-2 




JR C, e 
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Non Zero 
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DE 

01 
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I X 10 
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NOP 


4 0 

LD 
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8 0 
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A . B 
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NZ 
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LD 
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A , C 
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POP 

BC 
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LD 
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4 2 

LD 
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A , D 

C 2 
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0 3 
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83 
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B 
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LD 
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B 

4 5 
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8 5 
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BC 
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EX 
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LD 
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LD 
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A , D 

CA 

JP 
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BC 
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LD 
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8 B 
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C 
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LD 
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cc 
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OD 
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C 
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LD 

C * L 

8 D 
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CD 

CALL 

n n 

OE 

LD 
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CE 
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OF 
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LD 
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CF 

RST 
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LD 
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DO 
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LD 
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5 1 

LD 

D , C 
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DE 
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LD 
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D 
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JP 
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DE 
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93 
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D 
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LD 
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L 

D 5 

PUSH 

DE 

1 6 

LD 

D , n 
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LD 
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IHL) 
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n 
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5 7 

LD 
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A 
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1 8 
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e 
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LD 
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9 8 
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D 8 
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HL , DE 
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LD 

*E , C 
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S BC 
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D 9 

EXX 


1 A 

LD 
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5 A 

LD 

E , D 

9 A 

SBC 

A . D 

DA 

JP 

C , n n 

1 B 

DEC 

DE 

5 B 

LD 

E , E 

9 B 

SBC 

A, E 

DB 

IN 
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1C 
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E 

5 C 

LD 

E . H 

9 C 

SBC 

A .H 

DC 

CALL 

C i n n 

ID 

DEC 

E 

5 D 

LD 

E , L 

9 D 

SBC 

A , L 

DD f 


1 

1 E 

LD 

E , n 

5 E 

LD 

E , IHL ) 

9 E 

SBC 

A , IHL) 

DE 

SBC 

A . n 

1 F 

RRA 


5 F 

LD 
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9 F 
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DF 
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1 8H 

20 

JR 

NZ , e 

6 0 

LD 

H . B 

AO 
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B 

E0 
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PO 
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LD 
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6 1 

LD 

H . C 
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C 

E 1 
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HL 
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LD 
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LD 

H . D 
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D 
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JP 
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23 
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HL 
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LD 

H , E 

A 3 
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E 

E 3 

EX 
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2 4 
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H 

6 4 

LD 

H . H 

A 4 
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H 

E 4 
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P 0 , n n 

2 5 

DEC 

H 

6 5 

LD 

H , L 

A 5 
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L 

E 5 
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HL 
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LD 
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LD 

H.IHL) 
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n 

2 7 
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67 

LD 

H . A 

A 7 
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A 

E 7 
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2 8 

JR 
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6 8 

LD 

L . B 

A 8 
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B 

E 8 
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PE 

2 9 
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6 9 

LD 

L . C 

A 9 

XOR 

C 
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JP 

I HL ) 
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LD 
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LD 

L , D 

AA 
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D 

EA 

JP 
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HL 
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LD 
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AB 
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E 

EB 

EX 
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2C 

INC 

L 
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LD 
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AC 
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H 

EC 
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2D 
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L 

6 D 

LD 
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AD 
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L 
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| 
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LD 
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LD 
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AE 

XOR 
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EE 
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n 
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LD 
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AF 
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A 

EF 
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JR 
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LD 
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LD 
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LD 

IHL). C 
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C 
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AF 
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LD 
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OR 

D 
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JP 
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3 3 
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SP 
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LD 
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OR 
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LD 
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LD 
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AF 
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LD 
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A , D 

BA 

CP 

D 

FA 

JP 

M,nn 
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DEC 

SP 

7 B 

LD 

A , E 

B B 

CP 

E 

FB 

El 


3 C 

INC 

A 

7 C 

LD 

A ,H 

BC 

CP 

H 

FC 

CALL 

M , n n 

3D 

DEC 

A 

7 D 

LD 

A , L 

BD 

CP 

L 

fd r 

-1 


3 E 

LD 

A , n 

7 E 

LD 

A ,IHL) 

B E 

CP 

l HL ) 

FE 

C P 

n 

3 F 

CCF 


7 F 

LD 

A , A 

BF 

CP 

A 

FF 

RST 

3 8 H 
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C B XX 


0 0 

RLC 

B 

4 0 

B I T 

0 , B 

0 1 

RLC 

C 

4 1 

B I T 

0 , c 

0 2 

RLC 

D 

4 2 

B I T 

0 , D 

0 3 

RLC 

E 

4 3 

B I T 

0 , E 

0 4 

RLC 

H 

4 4 

BIT 

0 » H 

0 5 

RLC 

L 

4 5 

B I T 

0 , L 

0 6 

RLC 

(HL) 

4 6 

B I T 

0 , l HL ) 

0 7 

RLC 

A 

4 7 

B I T 

0 » A 

0 8 

RRC 

B 

4 8 

BIT 

1 • B 

0 9 

RRC 

C 

4 9 

BIT 

1 ,C 

0 A 

RRC 

D 

4 A 

BIT 

1 , D 

0 B 

RRC 

E 

4 B 

BIT 

1 , E 

OC 

RRC 

H 

4 C 

BIT 

1 t H 

OD 

RRC 

L 

4 D 

BIT 

1 , L 

OE 

RRC 

(HL ) 

4 E 

BIT 

1 , (HL ) 

OF 

RRC 

A 

4 F 

BIT 

1 , A 

1 0 

RL 

B 

5 0 

B I T 

2 , B 

1 1 

RL 

C 

5 1 

BIT 

2 ,C 

1 2 

RL 

D 

5 2 

BIT 

2 , D 

1 3 

RL 

E 

5 3 

BIT 

2 , E 

1 4 

RL 

H 

5 4 

BIT 

2 , H 

1 5 

RL 

L 

5 5 

B I T 

2 , L 

1 6 

RL 

( HL ) 

5 6 

BIT 

2 , (HL) 

1 7 

RL 

A 

5 7 

BIT 

2 , A 

1 8 

RR 

B 

5 8 

B I T 

3 , B 

1 9 

RR 

C 

5 9 

BIT 

3 .C 

1A 

RR 

D 

5 A 

b I T 

3 , D 

1 B 

RR 

E 

5 B 

B I T 

3 , E 

1C 

RR 

H 

5 C 

B I T 

3 , H 

ID 

RR 

L 

5D 

BIT 

3 , L 

1 E 

RR 

l. HL ) 

5 E 

B I T 

3, (HL ) 

1 F 

RR 

A 

5 F 

B l T 

3 , A 

20 

SLA 

B 

6 0 

BIT 

4 . B 

2 1 

SLA 

C 

6 1 

B IT 

4 ,C 

2 2 

SLA 

D 

6 2 

B I T 

4 , D 

2 3 

SLA 

E 

63 

B I T 

4 , E 

2 4 

SLA 

H 

6 4 

BIT 

4 , H 

25 

SLA 

L 

6 5 

B I T 

4 .L 

2 6 

SLA 

IHL) 

6 6 

B I T 

4,(HL) 

2 7 

SLA 

A 

6 7 

B I T 

4 , A 

2 8 

SRA 

B 

6 8 

B I T 

5 , B 

2 9 

SRA 

C 

6 9 

B IT 

5 ,C 

2 A 

SRA 

D 

6 A 

B I T 

5 , D 

2 B 

SRA 

E 

6 B 

B IT 

5 ,E 

2C 

SRA 

H 

6 C 

B I T 

5 , H 

2D 

SRA 

L 

6 D 

B I T 

5 , L 

2E 

SRA 

IHL) 

6 E 

BIT 

5,(HL) 

2 F 

SRA 

A 

6 F 

B I T 

5 , A 

3 0 



7 0 

BIT 

6 , B 

3 1 



7 1 

B I T 

6 ,C 

3 2 



7 2 

B I T 

6 , D 

3 3 



73 

BIT 

6 ,E 

3 4 



7 4 

BIT 

6 , H 

3 5 



7 5 

B I T 

6 , L 

3 6 



7 6 

B I T 

6 , (HL ) 

3 7 



7 7 

B IT 

6 , A 

3 8 

S RL 

B 

7 8 

B I T 

7 , B 

3 9 

S RL 

C 

7 9 

B I T 

7 , C 

3 A 

S RL 

D 

7 A 

B I T 

7 , D 

3 B 

S RL 

E 

7 B 

BIT 

7 , E 

3 C 

S RL 

H 

7 C 

B IT 

7 , H 

3D 

S RL 

L 

7 D 

B I T 

7 , L 

3 E 

SRL 

(HL ) 

7 E 

B IT 

7,(HL) 

3 F 

SRL 

A 

7 F 

B I T 

7 , A 


8 0 

RES 

0 , B 

C 0 

SET 

0 , B 

8 1 

RES 

0 , C 

C 1 

SET 

0 , C 

8 2 

RES 

0 „D 

C 2 

SET 

0 , D 

83 

RES 

0 , E 

C 3 

SET 

0 , E 

8 4 

RES 

0 , H 

C 4 

SET 

0 , H 

8 5 

RES 

0 , L 

C 5 

SET 

0 , L 

8 6 

RES 

0 , (HL) 

C 6 

SET 

0 , (HL) 

8 7 

RES 

0 , A 

C 7 

SET 

0 , A 

8 8 

RES 

1 , B 

C 8 

SET 

1 • B 

8 9 

RES 

1 ,c 

C 9 

SET 

1 .c 

3 A 

RES 

1 , D 

CA 

SET 

1 . D 

8 B 

RES 

1 , E 

CB 

SET 

1 ,E 

8 C 

RES 

1 , H 

CC 

SET 

1 i H 

8 D 

RES 

1 , L 

CD 

SET 

1 , L 

8 E 

RES 

1 , (HL) 

CE 

SET 

1.1HL) 

8 F 

RES 

1 i A 

CF 

SET 

1 , A 

9 0 

RES 

2 , B 

D 0 

SET 

2 , B 

9 1 

RES 

2 ,C 

D 1 

SET 

2 ,C 

9 2 

RES 

2 , D 

D 2 

SET 

2 , D 

93 

RES 

2 , E 

D 3 

SET 

2 , E 

9 4 

RES 

2 , H 

D 4 

SET 

2 , H 

95 

RES 

2 , L 

D 5 

SET 

2 , L 

9 6 

RES 

2,(HL) 

D 6 

SET 

2 , (HL) 

9 7 

RES 

2 , A 

D 7 

SET 

2 , A 

9 8 

RES 

3 , B 

D 8 

SET 

3 , B 

9 9 

RES 

3 , C 

D 9 

SET 

3 , C 

9 A 

RES 

3 , D 

DA 

SET 

3 , D 

9 B 

RES 

3 , E 

DB 

SET 

3 , E 

9 C 

RES 

3 , H 

DC 

SET 

3 , H 

9 D 

RES 

3 , L 

DD 

SET 

3 , L 

9 E 

RES 

3 , (HL) 

DE 

SET 

3 , (HL) 

9 F 

RES 

3 .A 

DF 

S ET 

3 , A 

A 0 

RES 

4 , B 

EO 

SET 

4 , B 

A 1 

RES 

4 ,C 

E 1 

SET 

4 ,C 

A 2 

RES 

4 , D 

E 2 

S ET 

4 ,D 

A 3 

RES 

4 ,E 

E 3 

SET 

4 , E 

A 4 

RF< S 

4 .H 

E 4 

SET 

4 , H 

A 5 

RES 

4 , L 

E 5 

SET 

4 , L 

A 6 

RES 

4 , (HL ) 

E 6 

SET 

4,(HL) 

A 7 

RES 

4 , A 

E 7 

SET 

4 , A 

A 8 

RES 

5 , B 

E 8 

SET 

5 , B 

A 9 

RES 

5 ,C 

E 9 

SET 

5 , C 

AA 

RES 

5 , D 

EA 

SET 

5 , D 

AB 

RES 

5 , E 

EB 

SET 

5 , E 

AC 

RES 

5 , H 

EC 

SET 

5 , H 

AD 

RES 

5 , L 

ED 

SET 

5 , L 

AE 

RES 

5, (HL) 

EE 

SET 

5,(HL) 

AF 

RES 

5 , A 

EF 

SET 

5 , A 

B 0 

RES 

6 , B 

F 0 

SET 

6 , B 

B 1 

RES 

6 ,C 

F 1 

SET 

6 ,C 

B 2 

RES 

6 , D 

F 2 

SET 

6 , D 

B 3 

RES 

6 , E 

F 3 

SET 

6 , E 

B 4 

RES 

6 , H 

F 4 

SET 

6 , H 

B 5 

RES 

6 , L 

F 5 

SET 

6 , L 

B 6 

RES 

6 , (HL) 

F 6 

SET 

6 , (HL ) 

B 7 

RES 

6 , A 

F 7 

SET 

6 , A 

B 8 

RES 

7 , B 

F 8 

S ET 

7 , B 

B 9 

RES 

7 ,C 

F 9 

SET 

7 ,C 

BA 

RES 

7 , D 

FA 

SET 

7 ,D 

BB 

RES 

7 , E 

FB 

SET 

7 , E 

BC 

RES 

7 , H 

FC 

SET 

7 ,H 

BD 

RES 

7 , L 

FD 

SET 

7 , L 

B E 

RES 

7 , (HL) 

FE 

SET 

7 , (HL) 

BF 

RES 

7 , A 

FF 

SET 

7 . A 
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D 

X 

X 

Q 



E D 

X X 



F 

D x x 


0 9 



ADD 

IX, BC 

4 0 

I N 

B. (C) 

0 9 



ADD 

IY, BC 

1 9 



ADD 

IX, DE 

4 1 

OUT 

(C).B 

L9- 



ADD 

IY, DE 

2 1 



LD 

IX, nn 

4 2 

SBC 

HL. BC 

2 1 



LD 

IY. nn 

2 2 



LD 

(nn), IX 

4 3 

LD 

(nn).BC 

2 2 



LD 

(nn), IY 

2 3 



I NC 

IX 

4 4 

NEC 


2 3 



I NC 

IY 

2 9 



ADD 

IX. IX 

4 5 

RETN 


2 9 



ADD 

IY, IY 

2 A 



LD 

IX, (nn) 

4 6 

I M 

0 • 

2 A 



LD 

IY.(nn) 

2 B 



DEC 

IX 

4 7 

LD 

I. A 

2 B 



DEC 

IY 

3 4 



I NC 

(IX + d) 

4 8 

I N 

C. (C) 

3 4 



I NC 

(IY + d) 

3 5 



DEC 

(IX+d) 

4 9 

OUT 

(C),C 

3 5 



DEC 

(IY + d) 

3 6 



LD 

(IX + d), n 

4 A 

ADC 

HL. BC 

3 6 



LD 

(IY + d), n 

3 9 



ADD 

IX. SP 

4 B 

LD 

BC, (nn) 

3 9 



ADD 

IY. SP 

4 6 



LD 

B, (IX + d) 

4 D 

RET I 


4 6 



LD 

B, (IY+d) 

4 E 



LD 

C, (IX+d) 

4 F 

LD 

R, A 

4 E 



LD 

C. (IY+d) 

5 6 



LD 

D. (IX + d) 

5 0 

I N 

D, (C) 

5 6 



LD 

D, (IY + d) 

5 E 



LD 

E, (IX + d) 

5 1 

OUT 

(C), D 

5 E 



LD 

E. (IY + d) 

6 6 



LD 

H, (IX + d) 

5 2 

SBC 

HL, DE 

6 6 



LD 

H, (IY + d) 

6 E 



LD 

L. (IX + d) 

5 3 

LD 

(nn), DE 

6 E 



LD 

L. (IY + d) 

7 0 



LD 

(IX + d), B 

5 6 

I M 

1 

7 0 



LD 

(IY + d). B 

7 1 



LD 

(ix+d).c 

5 7 

LD 

A. I 

7 1 



LD 

(IY + d). C 

7 2 



LD 

(IX + d). D 

5 8 

I N 

E. (C) 

7 2 



LD 

(IY+d), D 

7 3 



LD 

(IX + d), E 

5 9 

OUT 

(C), E 

7 3 



LD 

(IY + d), E 

7 4 



LD 

(IX + d). H 

5 A 

ADC 

HL. DE 

7 4 



LD 

(IY + d), H 

7 5 



L D 

(IX + d), L 

5 B 

LD 

DE, (nn) 

7 5 



LD 

(IY+d). L 

7 7 



LD 

(IX + d), A 

5 E 

I M 

2 

7 7 



LD 

(IY+d), A 

7 E 



LD 

A. (IX + d) 

5 F 

LD 

A, R 

7 E 



LD 

A, (IY + d) 

8 6 



ADD 

A, (IX + d) 

6 0 

I N 

H, (C) 

8 6 



ADD 

A, (IY + d) 

8 E 



ADC 

A, (IX + d) 

6 1 

OUT 

(C), H 

8 E 



ADC 

A. (IY + d) 

9 6 



SUB 

(IX + d) 

6 2 

SBC 

HL, HL 

9 6 



SUB 

(IY + d) 

9 E 



SBC 

A, (IX+d) 

6 7 

R RD 


9 E 



SBC 

A, (IY + d) 

A 6 



AND 

(IX + d) 

6 8 

I N 

L, (C) 

A 6 



AND 

(IY+d) 

AE 



X 0 R 

(IX + d) 

6 9 

OUT 

(C), L 

AE 



XO R 

(IY+d) 

B 6 



OR 

(IX + d) 

6 A 

ADC 

HL. HL 

B 6 



OR 

(IY + d) 

BE 



CP 

(IX + d) 

6 F 

RLD 


BE 



CP 

(IY+d) 

CB 

d 

0 6 

RLC 

(IX + d) 

7 2 

SBC 

HL, SP 

CB 

d 

0 6 

RLC 

(IY + d) 

CB 

d 

0E 

R RC 

(IX + d) 

7 3 

LD 

(nn), SP 

CB 

d 

0E 

R RC 

(IY + d) 

CB 

d 

1 6 

R L 

(IX + d) 

7 8 

I N 

A. (C) 

C B 

d 

1 6 

RL 

(IY+d) 

CB 

d 

1 E 

R R 

(IX + d) 

7 9 

OUT 

(C), A 

CB 

d 

1 E 

RR 

(IY + d) 

CB 

d 

2 6 

SLA 

(IX + d) 

7 A 

ADC 

HL. SP 

CB 

d 

2 6 

SLA 

(IY + d) 

CB 

d 

2 E 

S R A 

(IX + d) 

7 B 

LD 

SP. (nn) 

C B 

d 

2 E 

S R A 

(IY + d) 

CB 

d 

3 E 

S RL 

(IX+d) 

A 0 

LD I 


CB 

d 

3 E 

S RL 

(IY + d) 

CB 

d 

4 6 

B I T 

0, (IX + d) 

A 1 

CP I 


CB 

d 

4 6 

B I T 

0, (IY + d) 

CB 

d 

4 E 

B I T 

L (IX + d) 

A 2 

I N I 


CB 

d 

4 E 

B I T 

1, (IY + d) 

CB 

d 

5 6 

B I T 

2, (IX + d) 

A 3 

OUTI 


CB 

d 

5 6 

B I T 

2, (IY + d) 

CB 

d 

5 E 

B I T 

3, (IX + d) 

A 8 

LDD 


C B 

d 

5 E 

B I T 

3. (IY + d) 

CB 

d 

6 6 

B I T 

4, (IX + d) 

A 9 

CPD 


CB 

d 

6 6 

B I T 

4, (IY + d) 

CB 

d 

6 E 

B I T 

5. (IX + d) 

A A 

I N D 


CB 

d 

6 E 

B I T 

5, (IY + d) 

CB 

d 

7 6 

B I T 

6, (IX + d) 

AB 

OUTD 


CB 

d 

7 6 

B I T 

6. (IY + d) 

CB 

d 

7 E 

B I T 

7. (IX + d) 

B 0 

L D I R 


CB 

d 

7 E 

B I T 

7. (IY + d) 

CB 

d 

8 6 

RES 

0. (IX + d) 

B 1 

CP I R 


CB 

d 

8 6 

RES 

0. (IY + d) 

CB 

d 

8 E 

RES 

1, (IX + d) 

B 2 

I N I R 


C B 

d 

8 E 

RES 

1. (IY + d) 

CB 

d 

9 6 

RES 

2, (IX+d) 

B 3 

OT I R 


CB 

d 

9 6 

RES 

2, (IY + d) 

CB 

d 

9 E 

RES 

3. (IX + d) 

B 8 

LDDR 


C B 

d 

9 E 

RES 

3. (IY + d) 

CB 

d 

A 6 

RES 

4. (IX + d) 

B 9 

CPDR 


CB 

d 

A 6 

RES 

4. (IY+d) 

CB 

d 

A E 

RES 

5, (IX + d) 

BA 

INDR 


C B 

d 

AE 

RES 

5. (IY + d) 

CB 

d 

B 6 

RES 

6, (IX + d) 

BB 

OTDR 


CB 

d 

B 6 

RES 

6. (IY + d) 

CB 

d 

B E 

RES 

7. (IX + d) 




C B 

d 

BE 

RES 

7. (IY + d) 

CB 

d 

C 6 

SET 

0, (IX + d) 




CB 

d 

C 6 

SET 

0. (IY + d) 

CB 

d 

C E 

SET 

1. (IX + d) 




CB 

d 

CE 

SET 

1. (IY + d) 

CB 

d 

D 6 

SET 

2, (IX + d) 




C B 

d 

D 6 

SET 

2. (IY + d) 

CB 

d 

D E 

SET 

3. (IX + d) 




C B 

d 

DE 

SET 

3, (IY + d) 

CB 

d 

E 6 

SET 

4. (IX + d) 




CB 

d 

E 6 

SET 

4. (IY + d) 

CB 

d 

EE 

SET 

5, (IX + d) 




CB 

d 

EE 

SET 

5, (IY + d) 

CB 

d 

F 6 

SET 

6, (IX+d) 




CB 

d 

F 6 

SET 

6, (IY + d) 

CB 

d 

FE 

SET 

7, (IX + d) 




CB 

d 

FE 

SET 

7. (IY + d) 

E 1 



POP 

IX 




E 1 



POP 

IY 

E 3 



EX 

(SP).IX 




E 3 



EX 

(SP), IY 

E 5 



PUSH 

IX 




E 5 



PUSH 

IY 

E 9 



J P 

(IX) 




E 9 



J P 

(IY) 

F 9 



LD 

SP, IX 




F 9 



LD 

SP, IY 
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3 . /^COM-82 ttMSl 


8 M "J \ • □ - K 


\_x 

I 

R 

A 

B 

C 

D 

E 

H 

L 

(HL) 

(BC) 

(DE) 

(IX 

+ d) 

(IY 

+d) 

(nn) 

n 

LD A. X 

ED 

57 

ED 

5F 

7 F 

7 8 

7 9 

7 A 

7 B 

7 C 

7 D 

7 E 

OA 

1 A 

DD 

7 E 
d 

FD 

7 E 
d 

3 A 

n 

3 E 
n 

LD B. X 



4 7 

4 0 

4 1 

4 2 

4 3 

4 4 

4 5 

4 6 



DD 

4 6 

d 

FD 

4 6 
d 


0 6 
n 

LD C. X 



4 F 

4 8 

4 9 

4 A 

4 B 

4 C 

4 D 

4 E 



DD 

4 E 
d 

FD 

4 E 
d 


OE 

LD D, X 



5 7 

5 0 

5 1 

5 2 

5 3 

5 4 

5 5 

5 6 



DD 

5 6 
d 

FD 

5 6 
d 


1 6 
n 

LD E, X 



5 F 

5 8 

5 9 

5 A 

5 B 

5 C 

5 D 

5 E 



DD 

5 E 
d 

FD 

5 E 
d 


IE 

n 

LD H, X 



6 7 

6 0 

6 1 

6 2 

6 3 

6 4 

6 5 

6 6 



DD 

6 6 
d 

FD 

6 6 
d 


2 6 
n 

LD L, X 



6 F 

6 8 

6 9 

6 A 

6 B 

6 C 

6 D 

6 E 



DD 

6 E 
d 

FD 

6 E 
d 


2 E 
n 

LD (HL). X 



7 7 

7 0 

7 1 

7 2 

7 3 

7 4 

7 5 







3 6 
n 

LD (BC), X 



0 2 














LD (DE), X 



1 2 














LD (IX+d), X 



DD 

7 7 
d 

DD 
7 0 
d 

DD 

7 1 
-d 

DD 
7 2 
d 

DD 

7 3 
d 

DD 

7 4 
d 

DD 

7 5 
d 







DD 

n 

LD (IY + d), x 



FD 

7 7 
d 

FD 
7 0 
d 

FD 

7 1 
d 

FD 
7 2 
d 

FD 

7 3 
d 

FD 

7 4 
d 

FD 

7 5 
d 







rw 

! 6 

LD (nn), X 



3 2 

n 














LD I, X 



ED 

4 7 














LD R. X 



ED 

4 F 















16 t-y h • □ — K 



AF 

BC 

DE 

HL 

SP 

IX 

IY 

nn 

(nn) 

LD AF, X 










LD BC. x 








0 1 

n 

ED 

4 B 
n 

LD DE. X 








11 

E D 

5 B 

LD HL, x 








2 1 
n 

2 A 

LD SP. X 




F 9 


DD 

F 9 

FD 

F 9 

3 1 

?fi 

n 

n 

LD IX. x 








DD 

2 1 
n 

DD 

2 A 

n 

n 

LD IY. X 








FD 

2 1 

n 

n 

FD 

2 A 

n 

n 

LD (nn), X 


ED 

4 3 
n 

D 

E D 

5 3 

n 

2 2 

ED 

7 3 

n 

n 

DD 

2 2 

n 

n 

FD 

2 2 

n 



PUSH X 

F 5 

C 5 

D 5 

E 5 


DD 

E 5 

FD 

E5 



POP X 

F 1 

C 1 

D 1 

E 1 


DD 

E 1 

FD 

E 1 




7a "j 


LD I 

ED 

AO 

LD I R 

ED 

BO 

LDD 

ED 

A 8 

LDDR 

ED 

B 8 


7 'p. y ^ 


CP I 

ED 

A1 

CPI R 

ED 

B1 

CPD 

ED 

A 9 

CPDR 

ED 

B 9 
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81 : "j tw.mmm** 



A 

B 

C 

D 

E 

H 

L 

(HL) 

(IX 
+ d) 

(IY 
+ d) 

n 

ADD A, X 

8 7 

8 0 

8 1 

8 2 

8 3 

8 4 

8 5 

8 6 

DD 

8 6 
d 

FD 

8 6 
d 

C 6 
n 

ADC A, X 

8 F 

8 8 

8.9 

8 A 

8 B 

8 C 

8 D 

8 E 

DD 

8 E 
d 

FD 

8 E 
d 

CE 

SUB x 

9 7 

9 0 

9 1 

9 2 

9 3 

9 4 

9 5 

9 6 

DD 

9 6 
d 

FD 

9 6 
d 

D 6 
n 

SBC A, x 

9 F 

9 8 

9 9 

9 A 

9 B 

9 C 

9 D 

9 E 

DD 

9 E 
d 

FD 

9 E 
d 

DE 

n 

AND x 

A 7 

A 0 

A 1 

A 2 

A 3 

A 4 

A 5 

A 6 

DD 

A 6 
d 

FD 

A 6 
d 

E 6 
n 

XOR X 

AF 

A 8 

A 9 

AA 

AB 

AC 

AD 

AE 

DD 

AE 

d 

FD 

AE 

d 

EE 

OR X 

B 7 

BO 

B 1 

B 2 

B 3 

B 4 

B 5 

B 6 

DD 

B 6 
d 

FD 

B 6 
d 

F 6 
n 

CP x 

BF 

B 8 

B 9 

BA 

BB 

BC 

BD 

BE 

DD 

BE 

d 

FD 

BE 

d 

FE 

n 

INC x 

3 C 

0 4 

OC 

1 4 

1C 

2.4 

2 C 

3 4 

DD 

3 4 
d 

FD 

3 4 
d 


DEC x 

3D 

0 5 

OD 

1 5 

ID 

2 5 

2D 

3 5 

DD 

3 5 
d 

FD 

3 5 
d 



CPU3> h □ -ju 


NOP 

0 0 

HALT 

7 6 

DI 

F 3 

El 

FB 

IM 0 

ED 

4 6 

IM 1 

ED 

5 6 

IM 2 

ED 

5 E 


16 k* *y hxmmx 



BC 

DE 

HL 

SP 

IX 

IY 

ADD HL, X 

0 9 

1 9 

2 9 

3 9 



ADD IX, X 

DD 

0 9 

DD 

1 9 


DD 

3 9 

DD 

2 9 


ADD IY, X 

FD 

0 9 

FD 

1 9 


FD 

3 9 


FD 

2 9 

ADC HL. X 

ED 

4 A 

ED 

5 A 

ED 

6 A 

ED 

7 A 



SBC HL, X 

ED 

4 2 

ED 

5 2 

ED 

6 2 

ED 

7 2 



INC X 

0 3 

1 3 

2 3 

3 3 

DD 

2 3 

FD 

2 3 

DEC X 

OB 

IB 

2 B 

3 B 

DD 

2 B 

FD 

2 B 


EX AF, AF' 

0 8 

EX DE, HL 

EB 

EX (SP), HL 

E 3 

EX (SP), IX 

DD 

E 3 

EX (SP), IY 

FD 

E 3 

EXX 

D 9 


7+iAl/-^ 


DAA 

2 7 

CPL 

2 F 

NEC 

ED 

4 4 

CCF 

3 F 

SCF 

3 7 
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□ -X- h, ->7 h 


X 

A 

B 

C 

D 

E 

H 

L 

(HL) 

(IX 

+ d) 

CL 

RLC X 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

D D 

C B 

F D 

C B 

0 7 

0 0 

0 1 

0 2 

0 3 

04 

0 5 

0 6 

U 

0 6 

RRC X 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

D D 

FD 

OF 

0 8 

0 9 

OA 

OB 

oc 

0D 

OE 

<1 E 

<J E 

RL X 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

D D 

C B 

F D 

C B 

1 7 

1 0 

1 1 

1 2 

1 3 

1 4 

1 5 

1 6 

1 6 

A 

1 6 

RR X 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

D D 

C B 

F D 

C B 

IF 

1 8 

1 9 

1 A 

IB 

1C 

ID 

IE 

1 E 

1 E 

SLA X 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

D D 

C B 

F D 

C B 

2 7 

2 0 

2 1 

2 2 

2 3 

24 

2 5 

2 6 

2 6 

2 6 

SRA X 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

D D 

C B 

F D 

C B 

2 F 

2 8 

2 9 

2 A 

2 B 

2C 

2D 

2 E 

2 E 

2 E 

SRL X 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

CB 

D D 

C B 

F D 

C B 

3 F 

3 8 

3 9 

3 A 

3 B 

3C 

3D 

3 E 

3 E 

i E 

RLD 








ED 










6 F 



RRD 








ED 










6 7 





A 

RLCA 

0 7 

RRCA 

OF 

RLA 

1 7 

RRA 

IF 


-;u, 





UN 

COND 

C 

NC 

Z 

NZ 

PE 

PO 

M 

P 


JP X, nn 

C 3 

n 

DA 

n 

D 2 

n 

n 

CA 

n 

n 

C 2 

n 

n 

EA 

n 

n 

E 2 

n 

FA 

n 

n 

F 2 

n 

n 


JR X, e 

1 8 
e-2 

3 8 
e-2 

3 0 
e-2 

2 8 
e-2 

2 0 
e-2 






JP (HL) 

E 9 










JP (IX) 

DD 

E 9 










JP (IY) 

FD 

E 9 










CALL X, nn 

CD 

n 

n 

DC 

n 

n 

D 4 

n 

n 

CC 

n 

n 

C 4 

n 

n 

EC 

n 

n 

E 4 

n 

n 

FC 

n 

n 

F 4 

n 

n 


DJNZ e 










1 0 
e-2 

RET X 

C 9 

D 8 

D 0 

C 8 

C 0 

E 8 

EO 

F 8 

FO 


RETI 

ED 

4 D 










RETN 

ED 

4 5 











•J * * - h 


RST 00 H 

C 7 

RST 08 H 

CF 

RST 10H 

D 7 

RST 18H 

DF 

RST 20 H 

E 7 

RST 28 H 

EF 

RST 30 H 

F 7 

RST 38 H 

FF 
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A * 



A 

B 

C 

D 

E 

H 

L 

(HL) 

(IX 

+d) 

(IY 

+d) 


IN A. n 

DB 

n 

BIT 0 , X 

CB 

4 7 

CB 

4 0 

CB 

4 1 

CB 

4 2 

CB 

4 3 

CB 

4 4 

CB 

4 5 

CB 

4 6 

D D 

C B 
d 

4 6 

F D 

C B 
d 

4 6 

IN A. iC) 

ED 

7 8 

BIT 1 , X 

CB 

4 F 

CB 

4 8 

CB 

4 9 

CB 

4 A 

CB 

4 B 

CB 

4 C 

CB 

4 D 

CB 

4 E 

D D 

C B 
d 

4 E 

FD 

C B 
d 

4 E 

IN B. (C) 

ED 

4 0 

BIT 2.X 

CB 

5 7 

CB 

5 0 

CB 

5 1 

CB 

5 2 

CB 

5 3 

CB 

5 4 

CB 

5 5 

CB 

5 6 

D D 

C B 
d 

5 6 

FD 

C B 
d 

5 6 

IN C, (C) 

ED 

4 8 

BIT 3.X 

CB 

5 F 

CB 

5 8 

CB 

5 9 

CB 

5 A 

CB 

5 B 

CB 

5 C 

CB 

5 D 

CB 

5 E 

D D 

C B 
d 

5 E 

FD 

C B 
d 

5 E 

IN D. (C) 

ED 

5 0 

BIT 4.X 

CB 

6 7 

CB 

6 0 

CB 

6 1 

CB 

6 2 

CB 

6 3 

CB 

6 4 

CB 

6 5 

CB 

6 6 

D D 

C B 
d 

6 6 

F D 

C B 
d 

6 6 

IN E, (C) 

ED 

5 8 

BIT 5.X 

CB 

6 F 

CB 

6 8 

CB 

6 9 

CB 

6 A 

CB 

6 B 

CB 

6 C 

CB 

6 D 

CB 

6 E 

D D 

C B 
d 

6 E 

FD 

C B 
d 

6 E 

IN H. (C) 

ED 

6 0 

BIT 6.X 

CB 

7 7 

CB 

7 0 

CB 

7 1 

CB 

7 2 

CB 

7 3 

CB 

7 4 

CB 

7 5 

CB 

7 6 

D D 

C B 
d 

7 6 

F D 

C B 
d 

7 6 

IN L, (C) 

ED 

6 8 

BIT 7.X 

CB 

7 F 

CB 

7 8 

CB 

7 9 

CB 

7 A 

CB 

7 B 

CB 

7 C 

CB 

7 D 

CB 

7 E 

D D 

C B 
d 

7 E 

F D 

C B 
d 

7 E 

INI 

ED 

A 2 

RES 0. X 

CB 

8 7 

CB 

8 0 

CB 

8 1 

CB 

8 2 

CB 

8 3 

CB 

8 4 

CB 

8 5 

CB 

8 6 

D D 

C B 
d 

8 6 

F D 

C B 
d 

8 6 

INIR 

ED 

B 2 

RES 1 , X 

CB 

8 F 

CB 

8 8 

CB 

8 9 

CB 

8 A 

CB 

8 B 

CB 

8 C 

CB 

8 D 

CB 

8 E 

D D 

C B 
d 

8 E 

FD 

C B 
d 

8 E 

IND 

ED 

AA 

RES 2, X 

CB 

9 7 

CB 

9 0 

CB 

9 1 

CB 

9 2 

CB 

9 3 

CB 

9 4 

CB 

9 5 

CB 

9 6 

DD 

C B 
d 

9 6 

FD 

C B 
d 

9 6 

INDR 

ED 

BA 

RES 3, X 

CB 

9 F 

CB 

9 8 

CB 

9 9 

CB 

9 A 

CB 

9 B 

CB 

9 C 

CB 

9 D 

CB 

9 E 

D D 

C B 
d 

9 E 

FD 

C B 
d 

9 E 


£ t) 

RES 4 . X 

CB 

A 7 

CB 

A 0 

CB 

A 1 

CB 

A 2 

CB 

A 3 

CB 

A 4 

CB 

A 5 

CB 

A 6 

D D 

C B 
d 

A 6 

FD 

C B 
d 

A 6 


OUT n. A 

D 3 
n 

RES 5, X 

CB 

AF 

CB 

A 8 

CB 

A 9 

CB 

AA 

CB 

AB 

CB 

AC 

CB 

AD 

CB 

AE 

D D 

C B 
d 

A E 

FD 

C B 
d 

A E 

OUT (C). A 

ED 

7 9 

RES 6 . X 

CB 

B 7 

CB 

BO 

CB 

B 1 

CB 

B 2 

CB 

B 3 

CB 

B 4 

CB 

B 5 

CB 

B 6 

D D 

C B 
d 

B 6 

FD 

C B 
d 

B 6 

OUT (C). B 

ED 

4 1 

RES 7 , X 

CB 

BF 

CB 

B 8 

CB 

B 9 

CB 

BA 

CB 

BB 

CB 

BC 

CB 

BD 

CB 

BE 

D D 

C B 
d 

B E 

FD 

C B 
d 

BE 

OUT (C), C 

ED 

4 9 

SET 0 . X 

CB 

C 7 

CB 

C 0 

CB 

Cl 

CB 

C 2 

CB 

C 3 

CB 

C 4 

CB 

C 5 

CB 

C 6 

D D 

C B 
d 

C 6 

FD 

C B 
d 

C 6 

OUT (C), D 

ED 

5 1 

SET 1 . X 

CB 

CF 

CB 

C 8 

CB 

C 9 

CB 

CA 

CB 

CB 

CB 

CC 

CB 

CD 

CB 

CE 

D D 

C B 
d 

CE 

F D 

C B 
d 

C E 

OUT <C), E 

ED 

5 9 

SET 2 . X 

CB 

D 7 

CB 

DO 

CB 

D 1 

CB 

D 2 

CB 

D 3 

CB 

D 4 

CB 

D 5 

CB 

D 6 

D D 

C B 
d 

D 6 

F D 

C B 
d 

D 6 

OUT tC), H 

ED 

6 1 

SET 3. X 

CB 

DF 

CB 

D 8 

CB 

D 9 

CB 

DA 

CB 

DB 

CB 

DC 

CB 

DD 

CB 

DE 

D D 

C B 
d 

DE 

FD 

C B 
d 

D E 

OUT (C). L 

ED 

6 9 

SET 4 . X 

CB 

E 7 

CB 

E 0 

CB 

E 1 

CB 

E 2 

CB 

E 3 

CB 

E 4 

CB 

E 5 

CB 

E 6 

D D 

C B 
d 

E 6 

F D 

C B 
d 

E 6 


OUTI 

ED 

A 3 

SET 5. x 

CB 

EF 

CB 

E 8 

CB 

E 9 

CB 

EA 

CB 

EB 

CB 

EC 

CB 

ED 

CB 

EE 

D D 

C B 
d 

E E 

FD 

C B 
d 

E E 


OTIR 

ED 

B 3 

SET 6 . x 

CB 

F 7 

CB 

FO 

CB 

FI 

CB 

F 2 

CB 

F 3 

CB 

F 4 

CB 

F 5 

CB 

F 6 

D D 

C B 
d 

F 6 

F D 

C B 
d 

F 6 


OUTD 

ED 

AB 

SET 7 . x 

CB 

FF 

CB 

F 8 

CB 

F 9 

CB 

FA 

CB 

FB 

CB 

FC 

CB 

FD 

CB 

FE 

D D 

C B 
d 

FE 

FD 

C B 
d 

FE 


OTDR 

ED 

BB 
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